| blib/lib/Test/MetaSyntactic.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 37 | 35.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 79 | 8 | 0 | 0 | !$ok && $@ |
| 271 | 0 | 0 | 136 | /^[A-Za-z_]\w*$/ and ++$ok |
| 296 | 0 | 0 | 136 | length $_ >= 1 and length $_ <= 251 |
| 0 | 0 | 136 | length $_ >= 1 and length $_ <= 251 and ++$ok | |
| 315 | 14 | 0 | 0 | /^#/ and not /^# ?(?:names(?: +[-\w]+)*|default)\s*$/ |
| 336 | 0 | 0 | 2 | $has_lwp && 'LWP::UserAgent'->new('timeout', 5, 'env_proxy', 1)->get('http://www.google.com/intl/en/')->is_success |
| line | l | !l | condition |
|---|---|---|---|
| 176 | 3 | 0 | $Config::Config{'path_sep'} || ';' |
| 328 | 3 | 0 | "Acme::MetaSyntactic::$theme"->VERSION || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 25 | 3 | 0 | 0 | theme_ok($_, $source{$_}) or push @fail, $_ |
| 136 | 9 | 0 | 0 | $file ||= {'Acme::MetaSyntactic'->_find_themes(_starting_points())}->{$theme} |
| 271 | 136 | 0 | 0 | /^[A-Za-z_]\w*$/ and ++$ok or push @failed, $_ |
| 296 | 136 | 0 | 0 | length $_ >= 1 and length $_ <= 251 and ++$ok or push @failed, $_ |
| 350 | 0 | 0 | 3 | $ENV{'RELEASE_TESTING'} || $ENV{'AUTHOR_TESTING'} |