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'}'") |