| line |
l |
!l |
condition |
|
112
|
2 |
205 |
shift() || 0 |
|
560
|
418 |
2 |
$self->{$list} ||= [] |
|
628
|
31 |
1 |
eval {
do {
local $SIG{'__DIE__'};
require Net::DNS::RR::TSIG;
my $tsig = 'Net::DNS::RR::TSIG'->create(@argument);
$self->push('additional', $tsig);
return $tsig
}
} || (return croak("$@\nTSIG: unable to sign packet")) |
|
697
|
1 |
1 |
eval {
do {
local $SIG{'__DIE__'};
my $sig0;
if (ref $karg eq 'Net::DNS::RR::SIG') {
$sig0 = $karg;
}
else {
require Net::DNS::RR::SIG;
$sig0 = 'Net::DNS::RR::SIG'->create('', $karg);
} ;
$self->push('additional', $sig0);
return $sig0
}
} || (return croak("$@\nSIG0: unable to sign packet")) |
|
771
|
3 |
2 |
shift() || 512 |
|
800
|
144 |
1 |
$item->{'class'} || 0 |
|
835
|
2 |
1 |
$Data::Dumper::Maxdepth || 3 |
|
836
|
2 |
1 |
$Data::Dumper::Sortkeys || 1 |
|
837
|
2 |
1 |
$Data::Dumper::Useqq || 1 |