| line |
true |
false |
branch |
|
61
|
0 |
317 |
$DBIx::Class::_ENV_::Config{'useithreads'} ? : |
|
220
|
0 |
80271 |
if @_ < 2 or not defined $_[1] or length ref $_[1] |
|
228
|
0 |
80271 |
unless my($stash) = $_[0] =~ /^(.+)::/ |
|
237
|
0 |
74099 |
if $_[3] and $_[3]{'no_install'} |
|
248
|
0 |
74099 |
if $_[3] and defined $_[3]{'package'} and $stash ne $_[3]{'package'} |
|
256
|
6172 |
74099 |
unless $_[3] |
|
269
|
45836 |
0 |
if length ref $_ |
|
276
|
1977 |
78294 |
unless $_[2] |
|
284
|
0 |
108 |
if ref $pattern ne 'Regexp' |
|
288
|
8 |
31 |
unless $_[0] =~ /$pattern/ |
|
296
|
0 |
4079 |
unless length ref $_[0] |
|
300
|
4062 |
17 |
defined($_[1] = &blessed($_[0])) ? : |
|
308
|
0 |
20945 |
unless length ref $_[0] |
|
316
|
0 |
1815 |
ref $_[0] ? : |
|
322
|
0 |
1815 |
if $args->{'package'} =~ /^ :: (?: main )? $/x |
|
325
|
1733 |
82 |
if ($args->{'action'}->($args->{'package'})) |
|
328
|
3 |
1730 |
$args->{'package'} eq 'main' ? : |
|
337
|
1815 |
32744 |
$_ =~ /^(.+?)::$/ ? : |
|
349
|
26666 |
0 |
wantarray ? : |
|
356
|
45 |
445 |
unless $_[0] =~ /::|'/ |
|
383
|
359311 |
0 |
defined $_ ? : |
|
389
|
0 |
19 |
if ref $_[0] ne 'ARRAY' or ref $_[1] ne 'ARRAY' |
|
395
|
0 |
19 |
unless @{$_[0];} == @{$_[1];} |
|
402
|
24 |
0 |
defined $_ ? : |
|
407
|
24 |
0 |
defined $_ ? : |
|
410
|
0 |
19 |
grep({$_;} values %seen) ? : |
|
418
|
25 |
1493 |
unless defined $Data::Dumper::Indent |
|
442
|
18 |
0 |
if (&modver_gt_or_eq('Data::Dumper', '2.136')) |
|
445
|
18 |
0 |
if (&modver_gt_or_eq('Data::Dumper', '2.153')) |
|
448
|
18 |
0 |
if (&modver_gt_or_eq('Data::Dumper', '2.160')) |
|
465
|
0 |
5 |
ref $_[0] eq 'HASH' ? : |
|
467
|
0 |
5 |
unless (defined $args->{'msg'} and length $args->{'msg'}) |
|
477
|
0 |
5 |
$0 eq '-e' ? : |
|
481
|
2 |
3 |
unless exists $args->{'emit_dups'} |
|
501
|
0 |
5 |
if $seen_loud_screams->{$key}++ and not $args->{'emit_dups'} |
|
503
|
4 |
1 |
unless $msg =~ /\n\z/ |
|
506
|
0 |
5 |
unless print STDERR "$msg\n" |
|
511
|
5 |
0 |
unless $args->{'confess'} |
|
536
|
0 |
1806 |
unless defined wantarray |
|
551
|
0 |
1806 |
unless eval {
do {
$_[0][0]->();
1
}
} |
|
572
|
0 |
46729 |
unless defined $e |
|
576
|
54 |
46675 |
if $SIG{'__DIE__'} |
|
578
|
9 |
46720 |
unless eval {
do {
$not_blank = $e ne '';
1
}
} |
|
587
|
9 |
46720 |
if (defined $suberror) { } |
|
|
20 |
47131 |
elsif (not $not_blank and length(my $class = ref $e)) { } |
|
588
|
9 |
0 |
if (length(my $class = &blessed($e))) { } |
|
654
|
0 |
76494 |
if $catch_cref |
|
657
|
76494 |
0 |
if ref $arg eq 'DBIx::Class::_Util::Catch' |
|
660
|
0 |
0 |
if ref $arg eq 'Try::Tiny::Catch' |
|
663
|
0 |
0 |
if ref $arg eq 'Try::Tiny::Finally' |
|
668
|
0 |
0 |
defined $arg ? : |
|
681
|
167326 |
20215 |
unless $callstack_state->{'in_internal_try'} |
|
684
|
229 |
187312 |
if $SIG{'__DIE__'} |
|
686
|
21464 |
166077 |
if ($wantarray) { } |
|
|
133186 |
32891 |
elsif (defined $wantarray) { } |
|
702
|
184857 |
2672 |
if ($saul_goodman) { } |
|
|
2395 |
277 |
elsif ($catch_cref) { } |
|
703
|
21449 |
163408 |
$wantarray ? : |
|
716
|
0 |
76494 |
unless wantarray |
|
719
|
0 |
76494 |
if @_ > 1 |
|
738
|
0 |
0 |
defined $_ ? : |
|
760
|
0 |
15281 |
if (not length ref $_[0]) { } |
|
|
15280 |
1 |
elsif (not defined $$destruction_registry{my $addr = &refaddr($_[0])}) { } |
|
778
|
0 |
1 |
$INC{'Devel/StackTrace.pm'} && !do {
local $@;
eval {
do {
'Devel::StackTrace'->VERSION(2)
}
}
} ? : |
|
795
|
0 |
625 |
unless defined $mod and $mod =~ /$module_name_rx/ |
|
798
|
0 |
625 |
unless defined $ver and $ver =~ /$ver_rx/ |
|
808
|
582 |
43 |
unless defined $ver_cache->{$ver} |
|
820
|
14 |
568 |
if $SIG{'__WARN__'} |
|
822
|
0 |
582 |
unless $mod->VERSION |
|
825
|
0 |
582 |
if $SIG{'__DIE__'} |
|
827
|
582 |
0 |
eval {
do {
$mod->VERSION($ver)
}
} ? : |
|
836
|
0 |
4 |
unless defined $v_lt and $v_lt =~ /$ver_rx/ |
|
840
|
0 |
4 |
&modver_gt_or_eq($mod, $v_ge) && !&modver_gt_or_eq($mod, $v_lt) ? : |
|
849
|
125995 |
0 |
@_ == 1 && !length(ref $_[0]) ? : |
|
|
18 |
125995 |
ref $_[0] eq 'HASH' ? : |
|
857
|
0 |
126013 |
unless defined $class and $class =~ /$module_name_rx/ |
|
875
|
126009 |
4 |
&mro::get_mro($class) eq $requested_mro ? : |
|
890
|
313 |
125700 |
unless $DBIx::Class::_Util::__describe_class_query_cache->{'!internal!'} |
|
894
|
65357 |
60656 |
($DBIx::Class::_Util::__describe_class_query_cache->{'!internal!'}{$class}{'is_universal'} ||= &mro::is_universal($class)) ? : |
|
916
|
126013 |
0 |
unless (($slot->{'cumulative_gen'} || 0) == $my_gen) |
|
924
|
12052 |
113961 |
$requested_mro eq 'c3' ? : |
|
969
|
297 |
125403 |
unless $DBIx::Class::_Util::__describe_class_query_cache->{$_}{'methods_defined_in_class'} |
|
990
|
768024 |
1155133 |
ref \"${class}::"->{$_} ne 'GLOB' || defined *{"${class}::"->{$_};}{'CODE'} ? : |
|
993
|
0 |
768024 |
if $SIG{'__DIE__'} |
|
995
|
4 |
768020 |
unless eval {
do {
@attrs = &attributes::get(\&{"${class}::$_";});
1
}
} |
|
1048
|
0 |
0 |
length $1 && !length($2) ? : |
|
|
0 |
0 |
$_[0] =~ m( [\/\\] ( \.{0,2} ) ( [\/\\]* ) \z )x ? : |
|
1108
|
0 |
0 |
unless not @$fr or $fr->[3] eq 'DBIx::Class::ResultSet::new' or $fr->[3] =~ /^DBIx::Class::ResultSourceProxy::[^:]+$/ or not $fr->[3] =~ /^DBIx::Class|^DBICx::|^DBICTest::/ or grep {$_ eq 'DBIC_method_is_indirect_sugar';} do {
no strict 'refs';
&attributes::get(\&{$fr->[3];})
} |
|
1115
|
0 |
0 |
if $fr->[3] eq '(eval)' and @fr2 = caller 2 or $fr->[0] eq 'DBIx::Class::ResultSourceProxy' and @fr2 = caller 2 and ($fr->[3] =~ /([^:])+$/)[0] eq ($fr2[3] =~ /([^:])+$/)[0] |
|
1136
|
0 |
0 |
@fr2 ? : |
|
|
0 |
0 |
if (defined $fr->[0] and $fr->[0] =~ /^(?:DBIx::Class|DBICx::)/ and not $fr->[1] =~ /\b(?:CDBICompat|ResultSetProxy)\b/ and @fr2 = caller(@fr2 ? 3 : 2) and not grep({$_ eq 'DBIC_method_is_indirect_sugar';} do {
no strict 'refs';
&attributes::get(\&{$fr2[3];})
}) and $fr->[3] ne 'DBIx::Class::ResultSet::search' || !($fr2[3] =~ /^DBIx::Class::Ordered::(?: _group_rs | (?: _ | next_ | previous_ )? siblings )/x)) |
|
1168
|
0 |
0 |
@fr2 ? : |
|
1173
|
0 |
0 |
length ref $DB::args[0] ? : |
|
|
0 |
0 |
!defined($DB::args[0]) ? : |