| line |
l |
!l&&r |
!l&&!r |
condition |
|
53
|
0 |
1 |
0 |
$Invocant ||= do {
|
|
68
|
3 |
2 |
0 |
$ArgsObject ||= do {
|
|
112
|
214 |
42 |
0 |
[caller 1 + ($opts{'caller_level'} || 0)]->[3] || ($opts{'package'} || '__ANON__') . '::__ANON__'
|
|
114
|
1 |
255 |
0 |
$opts{'package'} ||= $pkg
|
|
115
|
1 |
255 |
0 |
$opts{'subname'} ||= $sub
|
|
127
|
2 |
13 |
0 |
$opts{'package'} || caller($opts{'caller_level'} || 0)
|
|
136
|
2 |
11 |
0 |
$opts{'package'} ||= $package
|
|
137
|
0 |
13 |
0 |
$opts{'subname'} ||= $function =~ /::(\w+)$/ ? $1 : $function
|
|
138
|
1 |
9 |
3 |
$opts{'goto_next'} ||= do {
|
|
140
|
6 |
1 |
0 |
$opts{'goto_next'} ||= eval {
|
|
155
|
0 |
10 |
0 |
$compiled ||= $sig->coderef->compile
|
|
212
|
6 |
9 |
0 |
$compiled{_mk_key(@_)} ||= signature("caller_level", 1, %{ref $_[0] eq "HASH" ? shift @_ : {};}, "positional", [@_])
|
|
229
|
402 |
28 |
0 |
$compiled{_mk_key(@_)} ||= signature("caller_level", 1, "bless", 0, %{ref $_[0] eq "HASH" ? shift @_ : {};}, "named", [@_])
|
|
248
|
0 |
2 |
0 |
$opts->{'caller'} ||= caller
|
|
257
|
0 |
1 |
0 |
$opts->{'caller'} ||= caller
|