Branch Coverage

blib/lib/Test/Spec.pm
Criterion Covered Total %
branch 41 60 68.3


line true false branch
66 28 13 if (@_)
77 0 13 if $@
87 14 2 if (@_)
90 15 1 if (exists $_Package_Phase{$class}) { }
118 12 2 if (not defined $class) { }
0 2 elsif (not eval { do { $class->isa('Test::Spec') } }) { }
131 0 14 $ENV{'SPEC'} ? :
0 14 @_ ? :
172 113 0 if (@_ and ref $_[-1] eq 'CODE')
176 0 113 unless ($code or $name)
197 0 57 if (ref $code ne 'CODE')
203 33 24 if ($_Current_Context) { }
247 0 2 unless (defined $name)
250 0 2 if (ref $code ne 'CODE')
275 2 57 if ($container->{$name}) { }
284 34 23 if ($_Current_Context) { }
300 0 4 unless (defined $name)
303 0 4 unless ($_Current_Context)
326 0 28 if (ref $code ne 'CODE')
330 0 28 if ($type ne 'each' and $type ne 'all')
343 0 2 if (ref $code ne 'CODE')
347 0 2 if ($type ne 'each' and $type ne 'all')
359 1 4 if ('File::Spec'->file_name_is_absolute($filespec)) { }
388 1 13 unless ($contexts and %$contexts)
399 23 229 if (not $_Current_Context) { }
72 157 elsif ($context == $_Current_Context) { }
0 157 elsif ($context->ancestor_of($_Current_Context)) { }
416 143 0 if ($_Current_Context) { }
433 0 24 unless $_Package_Contexts{$class}
434 24 0 wantarray ? :