Branch Coverage

blib/lib/Test/Verbose.pm

Criterion	Covered	Total	%
branch	67	214	31.3

line	true	false	branch
148	0	1	$ENV{'TVDEBUG'} ? :
150	0	1	is_win32 ? :
160	0	0	ref $_[-1] eq 'HASH' ? :
203	0	6	ref $proto ? :
210	0	0	if defined $options{$_}
214	6	0	unless $$self{'TestPOD'} or $$self{'Compile'} or $$self{'RunTests'}
217	0	6	if $$self{'NoPOD'}
218	0	6	if $$self{'NoCompile'}
219	0	6	if $$self{'NoTests'}
256	0	6	-e $rc_file ? :
257	0	0	unless open RC_FILE, "<$rc_file"
278	0	6	if (defined $rc_file)
284	0	0	unless eval $rc_file
309	0	26	if @_
311	6	20	if (defined wantarray and not defined $$self{'Dir'})
319	0	3	unless chdir 'File::Spec'->updir
322	0	3	if length $new_d eq length $last_d
328	0	6	unless chdir $cwd
344	0	0	if @_
356	0	0	if @_
368	0	0	if @_
380	0	0	if @_
398	0	30	if @_
399	25	5	if /\.t\z/
418	0	2	if @_
419	0	2	if /\.(pod)\z/
442	0	18	if @_
443	2	16	if /\.(pm|pl|pod)\z/
462	0	9	if @_
463	3	6	if /\A(\w|::)+\z/
480	0	0	@_ > 1 ? :
509	9	3	if ($self->is_test_script) { }
	1	2	elsif ($self->is_package) { }
	0	2	elsif (-d $_) { }
	0	2	elsif ($self->is_pod_file) { }
514	1	0	if (@t) { }
541	2	0	if (@t) { }
564	9	3	if /^$/
579	6	7	-d $dir ? :
585	18	0	if (-f $_ and $self->is_source_file || $self->is_test_script)
598	6	0	@results ? :
611	1	2	if (grep $self->is_package, @{$$self{'Names'};})
631	0	3	unless open F, $code_file
640	3	21	if (/^=for\s+test_scripts?\s+(.*)/) { }
	3	18	elsif (/^\s*package\s+(\S+)\s*;/) { }
	3	15	elsif (/^=/) { }
655	3	0	unless grep(($_ eq $code_file), @{$$self{'PodChecks'};})
658	0	3	unless close F
670	0	3	unless chdir $self->dir
672	0	3	unless chdir $cwd
674	0	3	unless @all_test_scripts
678	0	12	unless open F, 'File::Spec'->catfile($self->dir, $test_script)
684	3	81	if (/^=for\s+packages?\s+(.*)/) { }
	3	78	elsif (/^=for\s+files?\s+(.*)/) { }
	15	63	elsif (/\s*(use|require)\s+([\w:]+)/) { }
706	0	12	unless close F
715	0	3	if @_
721	3	0	exists $$self{'Packages'}{$_} ? :
728	0	2	if @_
743	2	0	exists $$self{'Files'}{$_} ? :
	2	0	exists $$self{'PackagesForFile'}{$_} ? :
751	0	0	if @_
762	0	0	exists $$self{'Files'}{$_} ? :
796	0	0	m[[^\w./\\=:-]] ? :
810	0	0	unless $sub
821	0	0	unless chdir $d
824	0	0	unless $$self{'NoLog'}
832	0	0	@_ ? :
834	0	0	if ($$self{'TestPOD'} and @{$$self{'PodChecks'};})
838	0	0	if $$self{'JustPrint'} or not $$self{'DoubleQuiet'}
841	0	0	unless $$self{'JustPrint'}
846	0	0	if ($$self{'Compile'} and @{$$self{'CompileChecks'};})
848	0	0	if $$self{'JustPrint'} or not $$self{'DoubleQuiet'}
853	0	0	unless $$self{'JustPrint'}
859	0	0	if @{$$self{'Unhandled'};}
861	0	0	unless $$self{'RunTests'} and @scripts
865	0	0	@_ ? :
	0	0	$$self{'ExtUtils'} ? :
	0	0	$$self{'PurePerl'} ? :
	0	0	$debug ? :
887	0	0	if $nonlazy_dyn_link
890	0	0	if ($$self{'DebugRun'})
891	0	0	if length $db_opts
894	0	0	if length $db_opts
896	0	0	if $$self{'DebugRun'}
908	0	0	if $nonlazy_dyn_link
909	0	0	if length $db_opts
911	0	0	if $$self{'JustPrint'} or not $$self{'DoubleQuiet'}
914	0	0	if $$self{'JustPrint'}
922	0	0	unless defined $pid
930	0	0	unless $$self{'Quiet'}
931	0	0	if $$self{'Quiet'}
933	0	0	if /^not\s*$/
938	0	0	unless $ok
942	0	0	if ($ok and not $saw_lone_not and !$not || ($why || '') =~ /TODO/i) { }
	0	0	elsif ($not or $saw_lone_not and $ok and $$self{'Quiet'} and not $$self{'DoubleQuiet'}) { }
953	0	0	if (defined $cmd and @cmds > 1)
954	0	0	if $$self{'Quiet'}
957	0	0	$saw_lone_not ? :
960	0	0	$saw_lone_not ? :
	0	0	if $ok
965	0	0	if (not $$self{'TripleQuiet'} and @out)
966	0	0	if (defined $cmd and @cmds > 1)
967	0	0	if $$self{'DoubleQuiet'}
971	0	0	$saw_ok ? :
975	0	0	unless waitpid $pid, 0
982	0	0	unless (grep $_, @result_codes)[0]