Branch Coverage

blib/lib/Metabrik/Address/Generate.pm
Criterion Covered Total %
branch 0 56 0.0


line true false branch
51 0 0 unless (defined $r)
142 0 0 if ($file_count <= 0)
150 0 0 if ($n > 0) { }
154 0 0 unless open my $fd, ">", "$datadir/$file"
161 0 0 unless open my $fd, ">", "$datadir/$file"
179 0 0 if $b1 == 169 and $b2 == 254
180 0 0 if $b1 == 172 and ($b2 >= 16 and $b2 <= 31)
181 0 0 if $b1 == 192 and $b2 == 168
182 0 0 if $b1 == 192 and $b2 == 0 and $b3 == 2
186 0 0 $n > 0 ? :
193 0 0 if ($count and $current == $count)
211 0 0 unless $self->brik_help_run_undef_arg("ipv4_generate_space_from_subnet", $subnet)
216 0 0 if ($file_count <= 0)
224 0 0 unless my $na = "Metabrik::Network::Address"->new_from_brik_init($self)
228 0 0 if ($n > 0) { }
232 0 0 unless open my $fd, ">", "$datadir/$file"
240 0 0 unless open my $fd, ">", "$datadir/$file"
248 0 0 unless my $first = $na->ipv4_first_address($subnet)
249 0 0 unless my $last = $na->ipv4_last_address($subnet)
263 0 0 $n > 0 ? :
270 0 0 if ($count and $current == $count)
292 0 0 if ($count <= 0)
303 0 0 if $b1 == 169 and $b2 == 254
304 0 0 if $b1 == 172 and ($b2 >= 16 and $b2 <= 31)
305 0 0 if $b1 == 192 and $b2 == 168
308 0 0 if $b1 == 192 and $b2 == 0 and $b3 == 2
312 0 0 unless (exists $random{$ip})
317 0 0 if $current == $count