| line |
true |
false |
branch |
|
56
|
0 |
0 |
unless defined $skip
|
|
57
|
0 |
0 |
unless defined $count
|
|
66
|
0 |
0 |
if ($scan_for_DB_sub)
|
|
68
|
0 |
0 |
$event eq 'post-mortem' ? :
|
|
72
|
0 |
0 |
if ("DB::$db_fn" eq $fn or 'DB' eq $pkg and $db_fn eq $fn)
|
|
82
|
0 |
0 |
if $event eq 'call'
|
|
105
|
0 |
0 |
if $pkg eq 'DB' and $fn eq 'sub' || $fn eq 'lsub' || $file =~ m[Devel/Trepan/DB/Sub\.pm$]
|
|
111
|
0 |
0 |
if (not defined $arg) { }
|
|
|
0 |
0 |
elsif ($nothard and tied $arg) { }
|
|
|
0 |
0 |
elsif ($nothard and $type = ref $arg) { }
|
|
130
|
0 |
0 |
unless /^(?: -?[\d.]+ | \*[\w:]* )$/x
|
|
147
|
0 |
0 |
defined $wantarray ? :
|
|
|
0 |
0 |
$wantarray ? :
|
|
151
|
0 |
0 |
$hasargs ? :
|
|
155
|
0 |
0 |
if $evaltext
|
|
158
|
0 |
0 |
if $evaltext
|
|
161
|
0 |
0 |
if ($is_require) { }
|
|
|
0 |
0 |
elsif (defined $is_require) { }
|
|
|
0 |
0 |
elsif ($fn eq '(eval)') { }
|
|
201
|
0 |
0 |
if ($scan_for_DB_sub)
|
|
203
|
0 |
0 |
if ($len)
|
|
214
|
0 |
0 |
if ($event eq 'call')
|
|
215
|
0 |
0 |
$DB::wantarray ? :
|