line |
l |
!l&&r |
!l&&!r |
condition |
87
|
122 |
39 |
0 |
$self->context || (caller($frame // 1))[3] |
88
|
140 |
21 |
0 |
$self->package || join('::', map(ucfirst($_), (caller 0)[0], 'error')) |
93
|
15 |
146 |
0 |
$data->{'context'} //= $context |
94
|
0 |
94 |
0 |
$data->{'message'} //= $message |
95
|
0 |
121 |
0 |
$data->{'name'} //= $name |
98
|
0 |
104 |
0 |
$data->{'$stash'} //= $self->stash |
102
|
126 |
34 |
1 |
$package->can("new") or eval "package $package; use base '${parent}'; 1" |
136
|
0 |
1 |
1 |
$routine eq "__ANON__" or $routine eq "(eval)" |
138
|
1 |
1 |
0 |
$routine or $name |