Branch Coverage

blib/lib/Test/Usage.pm
Criterion Covered Total %
branch 55 76 72.3


line true false branch
270 3 1 unless $caller eq 'main'
398 14 71 if $self->options->{'f'}
399 45 40 unless $bool and ++$$self{'nb_succ'}
401 8 77 unless defined $exp_msg
402 14 71 unless defined $got_msg
403 43 42 if ($verbosity == 2 or $verbosity == 1 and not $bool)
404 10 33 $bool ? :
405 10 33 $bool ? :
407 38 5 if ($exp_msg ne '')
412 27 16 if (not $bool and $got_msg ne '')
433 0 0 unless @msgs and $self->options->{'v'} > 0
437 0 0 unless defined $_
440 0 0 unless $msgs[-1] =~ /\n\Z/
540 0 0 unless $tee_hdl = 'IO::File'->new($file_name, 1025)
551 7 8 defined $options{'a'} ? :
557 2 13 defined $options{'e'} ? :
562 0 15 if defined $options{'c'}
563 10 5 if defined $options{'v'}
564 2 13 if defined $options{'f'}
571 51 56 unless $label =~ /$accept/
572 8 48 if $label =~ /$exclude/
585 1 47 if ($warnings)
590 1 47 if ($@)
597 1 14 $$self{'died'} ? :
1 14 $$self{'warned'} ? :
606 0 15 if ($tee_hdl)
616 2 13 defined $options{'s'} ? :
13 2 if (defined $options{'s'} ? $options{'s'} : $$self{'options'}{'s'})
702 1 0 defined $options{'c'} ? :
703 0 1 unless grep((substr($_, 0, 1) eq 'd'), keys %options)
731 2 9 if -d $spec
732 5 4 unless matches_glob($spec, $options{'g'})
734 0 4 unless defined $module
799 10 0 $val =~ /^(0|1|2)$/ ? :
823 283 0 unless $$gColor{'id'} and $$self{'options'}{'c'}
827 0 0 if ($$gColor{'id'} eq 'Win32Console') { }
0 0 elsif ($$gColor{'id'} eq 'ANSI') { }
841 0 0 if $chomped