| line |
true |
false |
branch |
|
8
|
0 |
385 |
$ENV{'DBICTEST_VERSION_WARNS_INDISCRIMINATELY'} || $] < 5.01 ? : |
|
46
|
0 |
385 |
$^O eq 'MSWin32' ? : |
|
|
0 |
385 |
$] < 5.008003 ? : |
|
|
0 |
385 |
$DBIx::Class::_ENV_::Config{'useithreads'} ? : |
|
|
0 |
385 |
"$]" < 5.013002 ? : |
|
|
325 |
60 |
$INC{'DBICTest/Util.pm'} ? : |
|
|
0 |
385 |
$ENV{'DBIC_SHUFFLE_UNORDERED_RESULTSETS'} ? : |
|
|
0 |
385 |
$ENV{'DBIC_ASSERT_NO_INTERNAL_WANTARRAY'} ? : |
|
|
0 |
385 |
$ENV{'DBIC_ASSERT_NO_INTERNAL_INDIRECT_CALLS'} ? : |
|
|
0 |
385 |
$ENV{'DBIC_STRESSTEST_UTF8_UPGRADE_GENERATED_COLLAPSER_SOURCE'} ? : |
|
49
|
0 |
385 |
if ($] < 5.009005) { } |
|
85
|
0 |
91 |
if ref $pattern ne 'Regexp' |
|
89
|
0 |
25 |
unless $_[0] =~ /$pattern/ |
|
97
|
0 |
6848 |
unless length ref $_[0] |
|
101
|
4647 |
2201 |
defined($_[1] = &blessed($_[0])) ? : |
|
109
|
0 |
39009 |
unless length ref $_[0] |
|
122
|
0 |
8 |
unless defined wantarray |
|
140
|
0 |
8 |
unless (eval {
do {
$_[0][0]->();
1
}
}) |
|
153
|
0 |
54255 |
unless defined $e |
|
158
|
3 |
54252 |
unless eval {
do {
$not_blank = $e ne '' ? 1 : 0;
1
}
} |
|
159
|
996 |
53256 |
$e ne '' ? : |
|
164
|
3 |
54252 |
if (defined $suberror) |
|
165
|
3 |
0 |
if (length(my $class = &blessed($e))) { } |
|
186
|
3 |
0 |
"$e" ne '' ? : |
|
203
|
0 |
0 |
defined $_ ? : |
|
217
|
0 |
59481 |
if (not length ref $_[0]) { } |
|
|
59480 |
1 |
elsif (not defined $$destruction_registry{my $addr = &refaddr($_[0])}) { } |
|
235
|
0 |
1 |
$INC{'Devel/StackTrace.pm'} && !do {
local $@;
eval {
do {
'Devel::StackTrace'->VERSION(2)
}
}
} ? : |
|
249
|
0 |
252 |
unless defined $mod and length $mod |
|
252
|
0 |
252 |
if not defined $ver or $ver =~ /[^0-9\.\_]/ |
|
258
|
0 |
252 |
unless $mod->VERSION |
|
262
|
251 |
1 |
eval {
do {
$mod->VERSION($ver)
}
} ? : |
|
268
|
0 |
3 |
if not defined $v_lt or $v_lt =~ /[^0-9\.\_]/ |
|
272
|
0 |
3 |
&modver_gt_or_eq($mod, $v_ge) && !&modver_gt_or_eq($mod, $v_lt) ? : |
|
282
|
0 |
0 |
if $list_ctx_ok_stack_marker |
|
284
|
0 |
0 |
unless (defined wantarray) |
|
309
|
0 |
0 |
ref $DB::args[0] ? : |
|
315
|
0 |
0 |
if ($want and $fr->[0] =~ /^(?:DBIx::Class|DBICx::)/) |
|
335
|
0 |
0 |
ref $DB::args[0] ? : |
|
341
|
0 |
0 |
if ($argdesc and $fr->[0] =~ /^(?:DBIx::Class|DBICx::)/ and not $fr->[1] =~ /\b(?:CDBICompat|ResultSetProxy)\b/) |