| line |
true |
false |
branch |
|
88
|
32 |
24 |
if ($$self[0] =~ /^(.*?\x0d?\x0a)/s) |
|
93
|
24 |
32 |
unless $string |
|
95
|
4 |
28 |
if (not $$self[1] and $string =~ /$START/) { } |
|
|
24 |
4 |
elsif ($$self[1]) { } |
|
98
|
16 |
8 |
if ($string =~ /$PARSER;/) { } |
|
|
4 |
4 |
elsif ($string =~ /.*?$END/) { } |
|
116
|
0 |
8 |
unless $$lease{$k} |
|
117
|
8 |
0 |
if (my(@values) = $$lease{$k} =~ /$DATE/) |
|
123
|
4 |
0 |
if (my $mac = _mac(delete $$lease{'ethernet'})) |
|
127
|
0 |
4 |
if $$lease{'circuit-id'} |
|
128
|
0 |
4 |
if $$lease{'remote-id'} |
|
135
|
0 |
4 |
unless my $str = shift() |
|
140
|
4 |
0 |
length $str == 12 ? : |