| line |
true |
false |
branch |
|
66
|
0 |
0 |
if (length $err) { } |
|
|
0 |
0 |
elsif (@devs == 0) { } |
|
81
|
0 |
0 |
unless $self->brik_help_run_undef_arg("get", $device) |
|
84
|
0 |
0 |
unless (defined $intf) |
|
85
|
0 |
0 |
if $self->enable_warnings |
|
91
|
0 |
0 |
unless (defined $get) |
|
92
|
0 |
0 |
if $self->enable_warnings |
|
102
|
0 |
0 |
if (my $ip = $get->ip) |
|
105
|
0 |
0 |
if (my $broadcast = $get->broadcast) |
|
108
|
0 |
0 |
if (my $netmask = $get->cidr2mask) |
|
111
|
0 |
0 |
if (my $cidr = $get->cidr) |
|
114
|
0 |
0 |
if (my $mac = $get->linkAddr) |
|
119
|
0 |
0 |
if ($subnet = $get->subnet and $cidr = $get->cidr) |
|
123
|
0 |
0 |
if (@aliases > 0) |
|
125
|
0 |
0 |
if (defined $aliases[0]) |
|
149
|
0 |
0 |
unless (defined $nr) |
|
153
|
0 |
0 |
unless my $list = $nr->get |
|
156
|
0 |
0 |
if (@$list == 1) { } |
|
176
|
0 |
0 |
unless $devices ||= $self->list |
|
181
|
0 |
0 |
unless (defined $device and exists $device->{'device'}) |
|
182
|
0 |
0 |
if $self->enable_warnings |
|
202
|
0 |
0 |
unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self) |
|
206
|
0 |
0 |
unless my $get = $cw->get($url) |
|
220
|
0 |
0 |
unless $self->brik_help_run_undef_arg("my_ipv4", $device) |
|
222
|
0 |
0 |
unless my $get = $self->get($device) |
|
225
|
0 |
0 |
unless (defined $ip) |
|
237
|
0 |
0 |
unless $self->brik_help_run_undef_arg("my_ipv6", $device) |
|
239
|
0 |
0 |
unless my $get = $self->get($device) |
|
242
|
0 |
0 |
unless (defined $ip) |