| 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 ? : |