| line |
true |
false |
branch |
|
61
|
75 |
33 |
if blessed($obj = $tmp) eq 'Net::ISC::DHCPd::Config'
|
|
87
|
0 |
0 |
if $obj == $self->root
|
|
209
|
89 |
18 |
if (my $parent = $self->parent)
|
|
213
|
16 |
2 |
if ($self->fh)
|
|
219
|
0 |
2 |
if ($file->is_relative and not -e $file)
|
|
263
|
6 |
1102 |
if (ref $list eq 'ARRAY' and $meta->has_method($method))
|
|
294
|
0 |
552 |
unless $pos = $fh->getpos
|
|
295
|
52 |
500 |
if (defined $$linebuf[0]) { }
|
|
299
|
24 |
476 |
unless defined($line = <$fh>)
|
|
306
|
27 |
449 |
if ($line =~ s/$COMMENT_RE//)
|
|
315
|
14 |
435 |
if ($line =~ /\n/)
|
|
322
|
63 |
424 |
if ($self->can('slurp')) { }
|
|
|
55 |
369 |
elsif ($line =~ /^\s*$/o) { }
|
|
|
75 |
294 |
elsif ($line =~ /$endpoint/) { }
|
|
|
9 |
285 |
elsif ($line =~ /^\s*{\s*$/) { }
|
|
324
|
49 |
14 |
if ($action eq 'next') { }
|
|
|
14 |
0 |
elsif ($action eq 'last') { }
|
|
|
0 |
0 |
elsif ($action eq 'backtrack') { }
|
|
331
|
0 |
0 |
if ($line_from_array) { }
|
|
345
|
0 |
75 |
if $self->root == $self
|
|
354
|
21 |
264 |
if ($lines =~ /\S$/) { }
|
|
363
|
1689 |
264 |
unless my(@c) = $lines =~ &$regex()
|
|
375
|
95 |
169 |
if @_ = $obj->children
|
|
386
|
21 |
0 |
unless ($lines =~ /;/)
|
|
391
|
0 |
0 |
if (warnings::enabled('net_isc_dhcpd_config_parse'))
|
|
400
|
106 |
7 |
$n ? :
|
|
449
|
120 |
1824 |
if $name =~ /s$/
|
|
454
|
1944 |
0 |
unless ($meta->find_method_by_name($attr))
|
|
460
|
0 |
174 |
if @_
|
|
473
|
0 |
0 |
if ref $child eq 'HASH'
|
|
483
|
34 |
140 |
wantarray ? :
|
|
489
|
270 |
8 |
@_ == 1 ? :
|
|
492
|
278 |
0 |
if (ref $child eq 'HASH')
|
|
504
|
0 |
6 |
if (ref $query ne 'HASH')
|
|
510
|
72 |
4 |
if ($class ne blessed $child)
|
|
514
|
2 |
2 |
unless $child->$key eq $$query{$key}
|
|
525
|
0 |
11 |
unless my $query = shift()
|
|
532
|
69 |
16 |
if ($class ne blessed($$children[$i]))
|
|
536
|
4 |
10 |
unless $$children[$i]->$key eq $$query{$key}
|
|
564
|
1 |
6 |
unless ($class =~ /::/)
|
|
572
|
3 |
3 |
if (ref $child eq $class)
|
|
576
|
6 |
0 |
if ($child->_children)
|
|
601
|
27 |
19 |
if ($self->parent and not $self->can('generate_with_include'))
|