| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless my $nr4 = "Net::Routing"->new("target", Net::Routing::NR_TARGET_ALL(), "family", Net::Routing::NR_FAMILY_INET4()) |
|
67
|
0 |
0 |
unless my $nr6 = "Net::Routing"->new("target", Net::Routing::NR_TARGET_ALL(), "family", Net::Routing::NR_FAMILY_INET6()) |
|
79
|
0 |
0 |
unless my $nr4 = "Net::Routing"->new("target", Net::Routing::NR_TARGET_ALL(), "family", Net::Routing::NR_FAMILY_INET4()) |
|
89
|
0 |
0 |
unless my $nr6 = "Net::Routing"->new("target", Net::Routing::NR_TARGET_ALL(), "family", Net::Routing::NR_FAMILY_INET6()) |
|
106
|
0 |
0 |
unless my $nd = "Metabrik::Network::Device"->new_from_brik_init($self) |
|
116
|
0 |
0 |
unless my $routes = $self->list |
|
118
|
0 |
0 |
unless length $device and $_->{'interface'} eq $device or not length $device |
|
119
|
0 |
0 |
if ($_->{'family'} eq "inet4" and $_->{'default'}) |
|
124
|
0 |
0 |
if (length $device) { } |
|
140
|
0 |
0 |
unless my $routes = $self->list |
|
142
|
0 |
0 |
unless length $device and $_->{'interface'} eq $device or not length $device |
|
143
|
0 |
0 |
if ($_->{'family'} eq "inet6" and $_->{'default'}) |
|
148
|
0 |
0 |
if (length $device) { } |
|
163
|
0 |
0 |
unless $self->brik_help_run_undef_arg("is_router_ipv4", $device) |
|
165
|
0 |
0 |
unless my $sc = "Metabrik::Shell::Command"->new_from_brik_init($self) |
|
180
|
0 |
0 |
$is_router ? : |
|
190
|
0 |
0 |
unless $self->brik_help_run_undef_arg("enable_router_ipv4", $device) |
|
192
|
0 |
0 |
unless my $sc = "Metabrik::Shell::Command"->new_from_brik_init($self) |
|
207
|
0 |
0 |
$is_router ? : |
|
217
|
0 |
0 |
unless $self->brik_help_run_undef_arg("disable_router_ipv4", $device) |
|
219
|
0 |
0 |
unless my $sc = "Metabrik::Shell::Command"->new_from_brik_init($self) |
|
234
|
0 |
0 |
$is_router ? : |