| line |
true |
false |
branch |
|
67
|
0 |
0 |
if (length $err) { } |
|
|
0 |
0 |
elsif (@devs == 0) { } |
|
82
|
0 |
0 |
unless $self->brik_help_run_undef_arg('get', $device) |
|
85
|
0 |
0 |
unless (defined $intf) |
|
86
|
0 |
0 |
if $self->enable_warnings |
|
92
|
0 |
0 |
unless (defined $get) |
|
93
|
0 |
0 |
if $self->enable_warnings |
|
103
|
0 |
0 |
if (my $ip = $get->ip) |
|
106
|
0 |
0 |
if (my $broadcast = $get->broadcast) |
|
109
|
0 |
0 |
if (my $netmask = $get->cidr2mask) |
|
112
|
0 |
0 |
if (my $cidr = $get->cidr) |
|
115
|
0 |
0 |
if (my $mac = $get->linkAddr) |
|
120
|
0 |
0 |
if ($subnet = $get->subnet and $cidr = $get->cidr) |
|
124
|
0 |
0 |
if (@aliases > 0) |
|
126
|
0 |
0 |
if (defined $aliases[0]) |
|
150
|
0 |
0 |
unless (defined $nr) |
|
154
|
0 |
0 |
unless my $list = $nr->get |
|
157
|
0 |
0 |
if (@$list == 1) { } |
|
177
|
0 |
0 |
unless $devices ||= $self->list |
|
182
|
0 |
0 |
unless (defined $device and exists $device->{'device'}) |
|
183
|
0 |
0 |
if $self->enable_warnings |
|
203
|
0 |
0 |
unless my $cw = 'Metabrik::Client::Www'->new_from_brik_init($self) |
|
207
|
0 |
0 |
unless my $get = $cw->get($url) |
|
221
|
0 |
0 |
unless $self->brik_help_run_undef_arg('my_ipv4', $device) |
|
223
|
0 |
0 |
unless my $get = $self->get($device) |
|
226
|
0 |
0 |
unless (defined $ip) |
|
238
|
0 |
0 |
unless $self->brik_help_run_undef_arg('my_ipv6', $device) |
|
240
|
0 |
0 |
unless my $get = $self->get($device) |
|
243
|
0 |
0 |
unless (defined $ip) |