| line |
true |
false |
branch |
|
18
|
2 |
1 |
unless @_ |
|
19
|
6 |
0 |
defined &{"${me}::$_";} ? : |
|
23
|
2 |
4 |
unless $_[1] |
|
|
0 |
6 |
ref $_[0] ? : |
|
24
|
3 |
3 |
if $trace or $args->{'trace'} or @_ > 2 |
|
30
|
0 |
0 |
unless $_[1] |
|
|
0 |
0 |
ref $_[0] ? : |
|
31
|
0 |
0 |
if $trace or $args->{'trace'} or @_ > 2 |
|
35
|
1 |
0 |
unless $_[1] |
|
36
|
0 |
0 |
unless $_[1] |
|
37
|
1 |
0 |
unless $_[1] |
|
38
|
0 |
0 |
unless $_[1] |
|
43
|
0 |
4 |
defined $pretty ? : |
|
45
|
2 |
2 |
unless scalar keys %$self |
|
47
|
0 |
2 |
$p ? : |
|
49
|
0 |
2 |
$p ? : |
|
53
|
0 |
5 |
!($_[0] && $_[0] =~ /^[123]$/) ? : |
|
|
0 |
5 |
ref $_[0] ? : |
|
55
|
2 |
3 |
if $args->{'verbose'} and $args->{'verbose'} eq '1' |
|
56
|
3 |
0 |
eval {
do {
require 5.014
}
} ? : |
|
59
|
1 |
2 |
($DB::args[0] || '') ne \$nv ? : |
|
|
6 |
3 |
$nv ? : |
|
60
|
3 |
6 |
unless $sargs |
|
62
|
0 |
6 |
if $file eq '/root/.cpan/build/Throw-0.13-flxxfT/blib/lib/Throw.pm' or $args->{'skip'}{$file} or $args->{'skip'}{$pkg} or $args->{'skip'}{$sub} |
|
63
|
0 |
6 |
if @$sargs > ($args->{'max_args'} ||= 5) |
|
66
|
0 |
0 |
ref $_ || !/\D/ ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
|
6 |
0 |
!@$sargs || $i == 2 && $sub eq 'throw' ? : |
|
69
|
5 |
1 |
if length $sub > $m1 |
|
70
|
3 |
3 |
if length $file > $m2 |
|
71
|
3 |
3 |
if length $line > $m3 |
|
81
|
0 |
0 |
unless ref $ref |
|
82
|
0 |
0 |
defined $err->{'type'} ? : |
|
|
0 |
0 |
!ref($err) ? : |
|
84
|
0 |
0 |
unless length $b <=> length $a |
|
|
0 |
0 |
if @keys > 1 |
|
86
|
0 |
0 |
unless $type =~ /^\Q$key\E\b(?:$|\.)/ |
|
88
|
0 |
0 |
ref $val ? : |
|
90
|
0 |
0 |
unless exists $ref->{'default'} |
|
92
|
0 |
0 |
ref $val ? : |