line |
true |
false |
branch |
117
|
0 |
7 |
unless (exists $$arg{'Protocol'}) |
121
|
0 |
7 |
unless $self->socket(16, $type, $$arg{'Protocol'}) |
123
|
0 |
7 |
unless $self->bind(pack_sockaddr_nl($$arg{'Pid'} || 0, $$arg{'Groups'} || 0)) |
125
|
3 |
4 |
if (ref $self eq 'IO::Socket::Netlink') { } |
126
|
2 |
1 |
unless my $class = $protocol2pkg{$$arg{'Protocol'}} |
273
|
0 |
2 |
unless defined $ret |
307
|
0 |
0 |
unless defined $self->recv($buffer, $maxlen) |
314
|
0 |
0 |
unless $message->nlmsg_flags & 2 |
321
|
0 |
0 |
if $message->nlmsg_type == 3 |
323
|
0 |
0 |
if $message->nlmsg_type != 1 |
326
|
0 |
0 |
unless defined $self->recv($buffer, $maxlen) |
341
|
0 |
8 |
if (eval {
do {
require Sub::Name
}
}) { } |
450
|
14 |
18 |
if @_ |
451
|
2 |
30 |
if (@_ and $$self{'nlmsg_type'} == 2) |
454
|
7 |
25 |
unless $$self{'nlmsg_type'} |
566
|
0 |
19 |
unless my $datafield = $args{'data'} or $no_data |
568
|
0 |
19 |
unless ref(my $fields = $args{'fields'}) eq 'ARRAY' |
570
|
0 |
19 |
unless $no_data or ref(my $packfunc = $args{'pack'}) eq 'CODE' |
571
|
0 |
19 |
unless $no_data or ref(my $unpackfunc = $args{'unpack'}) eq 'CODE' |
577
|
62 |
2 |
ref $f eq 'ARRAY' ? : |
583
|
38 |
26 |
if ($type eq 'decimal') { } |
|
8 |
18 |
elsif ($type eq 'hex') { } |
|
18 |
0 |
elsif ($type eq 'bytes') { } |
|
0 |
0 |
elsif ($type eq 'string') { } |
603
|
0 |
64 |
if defined $opts{'default'} |
609
|
61 |
95 |
if @_ |
610
|
121 |
35 |
defined $$self{$name} ? : |
611
|
56 |
8 |
unless $opts{'no_accessor'} |
619
|
4 |
5 |
if (@_) |
625
|
11 |
8 |
unless $no_data |
628
|
8 |
11 |
if (defined $datafield and not defined &{"${class}::${datafield}_string";}) |
693
|
8 |
7 |
unless @_ |
694
|
0 |
7 |
unless defined $nlmsg_type |
696
|
1 |
6 |
unless my $pkg = $type2pkg{$nlmsg_type} |
697
|
4 |
2 |
if ref $self eq $pkg |
700
|
2 |
0 |
if (ref $self eq $class or $pkg eq $class) |
736
|
0 |
3 |
unless my $fieldfunc = $class->can($fieldname) |
747
|
0 |
16 |
unless my $packer = $class->can("pack_nlattr_$datatype") |
749
|
0 |
16 |
unless my $unpacker = $class->can("unpack_nlattr_$datatype") |
856
|
0 |
10 |
unless my $attrmap = $attr_byname{$class} |
861
|
0 |
9 |
unless $$attrmap{$name} |
875
|
0 |
8 |
unless my $attrmap = $attr_bytype{$class} |
882
|
4 |
30 |
unless $$attrmap{$typeid} |
894
|
9 |
5 |
if (@_) { } |
920
|
0 |
1 |
unless my $attrmap = $attr_bytype{$class} |
926
|
0 |
1 |
unless $$attrmap{$typeid} |
928
|
1 |
0 |
if $name eq $wantname |
954
|
0 |
2 |
unless my $attrmap = $attr_byname{$class} |
960
|
0 |
3 |
unless $$attrmap{$name} |
962
|
2 |
1 |
if (defined(my $value = $newvalues{$name})) { } |
992
|
0 |
3 |
$type == 2 ? : |
|
1 |
3 |
$type == 3 ? : |
|
0 |
4 |
$type == 1 ? : |
1017
|
1 |
5 |
if $flags & $val |
1020
|
4 |
2 |
unless $flags |
1023
|
0 |
4 |
if $flags |
1025
|
1 |
3 |
@flags ? : |