| 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 |
92 |
if ref $pattern ne 'Regexp'
|
|
89
|
0 |
36 |
unless $_[0] =~ /$pattern/
|
|
97
|
0 |
9769 |
unless length ref $_[0]
|
|
101
|
7566 |
2203 |
defined($_[1] = &blessed($_[0])) ? :
|
|
109
|
0 |
40069 |
unless length ref $_[0]
|
|
122
|
0 |
8 |
unless defined wantarray
|
|
140
|
0 |
8 |
unless (eval {
do {
$_[0][0]->();
1
}
})
|
|
153
|
0 |
54841 |
unless defined $e
|
|
158
|
3 |
54838 |
unless eval {
do {
$not_blank = $e ne '' ? 1 : 0;
1
}
}
|
|
159
|
993 |
53845 |
$e ne '' ? :
|
|
164
|
3 |
54838 |
if (defined $suberror)
|
|
165
|
3 |
0 |
if (length(my $class = &blessed($e))) { }
|
|
186
|
3 |
0 |
"$e" ne '' ? :
|
|
203
|
0 |
0 |
defined $_ ? :
|
|
217
|
0 |
59769 |
if (not length ref $_[0]) { }
|
|
|
59768 |
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 |
256 |
unless defined $mod and length $mod
|
|
252
|
0 |
256 |
if not defined $ver or $ver =~ /[^0-9\.\_]/
|
|
258
|
0 |
256 |
unless $mod->VERSION
|
|
262
|
256 |
0 |
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/)
|