inc/My/Module/Test/App.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 9 | 24 | 37.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
320 | 4 | 8 | 0 | eval "require $module; 1" and eval { do { $module->VERSION($v) if $v; my(@import) = map({split(qr/ \s* , \s* /msx, $_, 0);} @{[] unless $opt{'import'};}); eval "package $caller; $module->import( qw{ @import } ); 1" unless $opt{'noimport'} } } |
331 | 7 | 0 | 5 | $skip and $skip =~ / \A all \z /imsx |
352 | 0 | 5 | 2 | defined $_ and not ref $_ |
line | l | !l | condition | |
---|---|---|---|---|
259 | 0 | 0 | 0 | $time_tested || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
140 | 0 | 0 | 0 | $tz_utc ||= "DateTime::TimeZone"->new("name", "UTC") |
150 | 0 | 0 | 0 | $tz_local ||= "DateTime::TimeZone"->new("name", "local") |
311 | 0 | 0 | 0 | $go ||= "Getopt::Long::Parser"->new |
408 | 232 | 4 | 496 | $want eq $got or $no_stat{$^O} |