| blib/lib/Test/Prereq/Meta.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 36 | 57 | 63.1 | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 150 | 0 | 0 | 16 | -e 'Makefile.PL' && -e 'Build.PL' | 
| 227 | 2 | 0 | 1 | $self->{'verbose'} and my(@dup) = grep({$self->{'uses'}{$_} if $self->{'_requires'}{$_}{'file'};} keys %{$$self{"_requires"};}) | 
| 442 | 1 | 0 | 44 | ref $arg[0] && ref($arg[0])->isa('Test::Prereq::Meta') | 
| 450 | 15 | 0 | 1 | &Scalar::Util::blessed($arg->{$name}) and $arg->{$name}->isa("CPAN::Meta") | 
| line | l | !l | condition | 
|---|---|---|---|
| 38 | 0 | 6 | {'MSWin32', 'Win32', 'os2', 'OS2', 'VMS', 'VMS', 'NetWare', 'Win32', 'symbian', 'Win32', 'dos', 'OS2', 'cygwin', 'Cygwin', 'amigaos', 'AmigaOS'}->{$^O} || 'Unix' | 
| 45 | 0 | 16 | $arg{'file_error'} //= "Failed to analyze %f: %e" | 
| 46 | 7 | 9 | $arg{'name'} //= "Prereq test: %f uses %m" | 
| 50 | 0 | 16 | $arg{'path_type'} //= "Unix" | 
| 51 | 0 | 16 | $arg{'per_file_note'} //= "%f" | 
| 52 | 4 | 12 | $arg{'perl_version'} //= "none" | 
| 53 | 0 | 16 | $arg{'skip_name'} //= "Prereq test: %f does not use any modules" | 
| 68 | 64 | 16 | 'Test::Prereq::Meta'->can("__validate_$name") || 'Test::Prereq::Meta'->can('__validate_' . ref($default->{$name})) || sub { } | 
| 310 | 55 | 52 | $self->{'_requires'}{$module}{'file'} ||= [] | 
| 331 | 4 | 1 | $self->{'has'}{$module} || $self->{'_both_tools'} && $toolchain->{$file}{$module} || 0 | 
| 396 | 249 | 0 | caller $nest or "" | 
| 483 | 1 | 15 | $arg->{'_normalize_path'} ||= undef | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 65 | 16 | 50 | 14 | $arg{$name} //= $default->{$name} | 
| 150 | 0 | 16 | 0 | ref $class || $class | 
| 220 | 1 | 17 | 1 | $self->{'uses'}{$_} || $self->{'_requires'}{$_}{'file'} | 
| 359 | 307 | 0 | 0 | $sub->{$1} // $1 | 
| 365 | 1 | 0 | 0 | $perl_version // $] | 
| 477 | 1 | 0 | 0 | 'Test::Prereq::Meta'->can("__normalize_path_$arg->{'path_type'}") || croak("Invalid path type '$arg->{'path_type'}'") | 
| 0 | 1 | 0 | $arg->{'_normalize_path'} ||= 'Test::Prereq::Meta'->can("__normalize_path_$arg->{'path_type'}") || croak("Invalid path type '$arg->{'path_type'}'") |