class-instance-multi.pm6

  our $throw-on-mismatches;
  has Bool $!throw-on-mismatches;
  
  multi method throw-on-mismatches(Test::Lab::Experiment:U : Bool $flag?) {
    with $flag {
      Test::Lab::Experiment::<$throw-on-mismatches> = $flag
    } else {
      Test::Lab::Experiment::<$throw-on-mismatches> // False
    }
  }
  multi method throw-on-mismatches(Test::Lab::Experiment:D : Bool $flag?) {
    with $flag {
      $!throw-on-mismatches = $flag
    } else {
      $!throw-on-mismatches // Test::Lab::Experiment.throw-on-mismatches
    }
  }