| line |
true |
false |
branch |
|
68
|
3 |
0 |
if (ref $file eq 'GLOB') { }
|
|
72
|
0 |
0 |
unless -f $file
|
|
73
|
0 |
0 |
unless -r $file
|
|
74
|
0 |
0 |
unless open my $self, '<', $file
|
|
92
|
1 |
1 |
if (my($tab, @ip) = /$FIND_NET/mx)
|
|
103
|
1 |
3 |
if (/$ROUTERS/mx) { }
|
|
|
1 |
2 |
elsif (my(@net) = /$RANGE/mx) { }
|
|
|
1 |
1 |
elsif (/$tab\}/mx) { }
|
|
107
|
0 |
1 |
unless $net[1]
|
|
115
|
1 |
0 |
ref $net ? :
|
|
130
|
2 |
0 |
if (my($ip) = /$FIND_LEASE/mx)
|
|
141
|
2 |
12 |
if (/$STARTS/mx) { }
|
|
|
2 |
10 |
elsif (/$ENDS/mx) { }
|
|
|
2 |
8 |
elsif (/$HW_ETHERNET/mx) { }
|
|
|
0 |
8 |
elsif (/$REMOTE_ID/mx) { }
|
|
|
0 |
8 |
elsif (/$CIRCUIT_ID/mx) { }
|
|
|
2 |
6 |
elsif (/$BINDING/mx) { }
|
|
|
2 |
4 |
elsif (/$HOSTNAME/mx) { }
|
|
|
2 |
2 |
elsif (/$END/mx) { }
|
|
167
|
2 |
0 |
ref $lease ? :
|
|
182
|
0 |
2 |
if $mac =~ /[\x00-\x1f]/mx
|
|
186
|
0 |
12 |
$i < 0 ? :
|