| line |
true |
false |
branch |
|
29
|
0 |
73 |
if (not $ENV{'RELEASE_TESTING'} || $ENV{'AUTOMATED_TESTING'}) { }
|
|
39
|
73 |
0 |
if (@_ & 1 and ref $_[0] and ref $_[0] eq 'HASH') { }
|
|
43
|
0 |
0 |
if (@_ & 1)
|
|
54
|
0 |
73 |
if (exists $opt{'allow'} and exists $opt{'deny'})
|
|
58
|
146 |
0 |
if (not exists $opt{$type} && defined $opt{$type}) { }
|
|
60
|
0 |
146 |
if exists $opt{$type}
|
|
62
|
0 |
0 |
if (not ref $opt{$type}) { }
|
|
|
0 |
0 |
elsif (ref $opt{$type} ne 'Regexp') { }
|
|
65
|
0 |
0 |
if ($@)
|
|
88
|
1511 |
0 |
unless (exists $ENV{'PERL_APOCALYPSE'} and $ENV{'PERL_APOCALYPSE'})
|
|
89
|
0 |
1511 |
if (exists $opt{'allow'}) { }
|
|
|
0 |
1511 |
elsif (exists $opt{'deny'}) { }
|
|
90
|
0 |
0 |
if ($t =~ /^Test::Apocalypse::(.+)$/)
|
|
91
|
0 |
0 |
unless ($1 =~ /$opt{'allow'}/)
|
|
97
|
0 |
0 |
if ($t =~ /^Test::Apocalypse::(.+)$/)
|
|
98
|
0 |
0 |
if ($1 =~ /$opt{'deny'}/)
|
|
108
|
147 |
1364 |
if ($@)
|
|
112
|
0 |
147 |
if ($ENV{'RELEASE_TESTING'} or $ENV{'PERL_APOCALYPSE'}) { }
|
|
122
|
258 |
1106 |
if ($t->can('_is_disabled') and not $ENV{'PERL_APOCALYPSE'})
|
|
124
|
111 |
147 |
if ($ret)
|
|
131
|
222 |
1031 |
if ($ENV{'AUTOMATED_TESTING'} and not $ENV{'PERL_APOCALYPSE'} and $t->can('_do_automated') and not $t->_do_automated)
|
|
146
|
0 |
959 |
if ($@)
|
|
150
|
0 |
0 |
if ($err->isa('Test::Builder::Exception'))
|
|
155
|
0 |
0 |
if ($ENV{'RELEASE_TESTING'} or $ENV{'PERL_APOCALYPSE'}) { }
|