Branch Coverage

blib/lib/Test/Mimic/Library.pm
Criterion Covered Total %
branch 22 114 19.3


line true false branch
23 0 1 if (eval { do { require Data::Dump::Streamer; 1 } }) { }
40 0 0 unless eval $_[0] . '; 1'
60 17 0 if (defined $type) { }
62 1 16 if (defined $class) { }
81 0 5 unless eval $_[0] . '; 1'
207 0 0 unless open my $fh, '<', $file_name
217 0 0 unless close $fh
227 0 0 unless open my $fh, '>', $file_name
229 0 0 unless close $fh
235 0 0 if (defined $$preferences{'string'})
238 0 0 if (defined $$preferences{'destring'})
252 0 0 if (-e $dir) { }
253 0 0 unless (-d $dir)
258 0 0 unless mkdir $dir
260 0 0 unless chdir $dir
269 0 0 unless (exists $$behavior{$key})
276 0 0 if (wantarray) { }
0 0 elsif (defined wantarray) { }
286 0 0 unless (defined $results)
291 0 0 if (@{$results;} == 0)
302 0 0 if ($result_type == 301) { }
0 0 elsif ($result_type == 300) { }
306 0 0 if (wantarray) { }
0 0 elsif (defined wantarray) { }
362 3 1 if (defined($key_gen = $$key_gens{'packages'}{$package}{'subs'}{$subroutine}{'key'}) or defined($key_gen = $$key_gens{'packages'}{$package}{'key'}) or defined($key_gen = $$key_gens{'key'})) { }
404 10 13 if (not $type) { }
13 0 elsif (exists $type_to_action{$type}) { }
409 0 13 if (defined $$is_alive{$address})
413 0 13 if (_is_pattern($val))
417 2 11 if ($at_level == 0) { }
449 0 0 if (defined $$is_alive{$address}) { }
503 3 1 if (defined($arg_monitor = $$monitors{'packages'}{$package}{'subs'}{$subroutine}{'monitor_args'}) or defined($arg_monitor = $$monitors{'packages'}{$package}{'monitor_args'}) or defined($arg_monitor = $$monitors{'monitor_args'})) { }
513 2 0 unless (readonly($$aliases[$i]))
538 3 0 if (defined($arg_player = $$players{'packages'}{$package}{'subs'}{$subroutine}{'play_args'}) or defined($arg_player = $$players{'packages'}{$package}{'play_args'}) or defined($arg_player = $$players{'play_args'})) { }
549 0 0 if ($orig_num_aliases != $cur_num_aliases)
558 0 0 if ($cur_read_only and $orig_read_only) { }
0 0 elsif (not $cur_read_only || $orig_read_only) { }
564 0 0 if (defined $$index_to_reference{$index})
599 0 0 if (_is_pattern($val)) { }
604 0 0 if ($type eq 'REF' or $type eq 'LVALUE' or $type eq 'VSTRING') { }
673 0 2 if (not $type) { }
680 0 2 if (defined $$is_alive{$address}) { }
693 0 2 if (_is_pattern($val))
700 2 0 if (exists $type_to_action{$type}) { }
771 0 0 if ($at_level == 0) { }
779 0 0 if (not $type) { }
0 0 elsif (exists $type_to_action{$type}) { }
783 0 0 if (_is_pattern($val))
823 0 0 if ($code_type == 200) { }
0 0 elsif ($code_type == 202) { }
0 0 elsif ($code_type == 201) { }
829 0 0 if (exists $type_to_action{$ref_type}) { }
876 0 0 if ($type == 200) { }
0 0 elsif ($type == 201) { }
880 0 0 if (defined $$index_to_reference{$data}) { }
890 0 0 if (exists $type_to_action{$type}) { }
899 0 0 if (defined $class_name)