| inc/My/Module/Test/App.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 25 | 44.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 349 | 6 | 0 | 8 | 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'} } } |
| 360 | 0 | 4 | 2 | $skip and $skip =~ / \A all \z /imsx |
| 389 | 232 | 4 | 496 | defined $_ and not ref $_ |
| line | l | !l | condition |
|---|---|---|---|
| 53 | 0 | 19 | eval { do { require DateTime; require DateTime::TimeZone; 1 } } || 0 |
| 288 | 0 | 0 | $time_tested || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 168 | 0 | 0 | 0 | $tz_utc ||= "DateTime::TimeZone"->new("name", "UTC") |
| 178 | 0 | 0 | 0 | $tz_local ||= "DateTime::TimeZone"->new("name", "local") |
| 340 | 6 | 8 | 0 | $go ||= "Getopt::Long::Parser"->new |
| 523 | 2 | 0 | 0 | $want eq $got or $no_stat{$^O} |