| line |
true |
false |
branch |
|
74
|
0 |
0 |
if $obj == $self->root
|
|
181
|
0 |
19 |
if (my $parent = $self->parent)
|
|
185
|
17 |
2 |
if ($self->fh)
|
|
191
|
0 |
2 |
if ($file->is_relative and not -e $file)
|
|
231
|
254 |
40 |
if $$args{'parse'}
|
|
238
|
7 |
79 |
if (ref $list eq 'ARRAY' and $meta->has_method($method))
|
|
266
|
24 |
77 |
unless (defined $fh)
|
|
273
|
46 |
419 |
if (defined $$linebuf[0]) { }
|
|
277
|
24 |
395 |
unless defined($line = <$fh>)
|
|
284
|
26 |
369 |
if ($line =~ /^\s*\#\s*(.*)/)
|
|
290
|
13 |
356 |
if ($line =~ s/([;\{\}])([^;\n\r])/$1\n$2/g)
|
|
297
|
52 |
350 |
if ($line =~ /^(?:\s*|\s*\{\s*)$/) { }
|
|
|
77 |
273 |
elsif ($line =~ /^\s*\}\s*$/) { }
|
|
301
|
0 |
77 |
if $self->root == $self
|
|
307
|
19 |
254 |
if ($lines) { }
|
|
317
|
1613 |
254 |
unless my(@c) = $lines =~ /$regex/
|
|
328
|
7 |
247 |
if $obj->can('slurp')
|
|
331
|
82 |
172 |
if @_ = $obj->children
|
|
342
|
19 |
0 |
unless ($lines =~ /;/)
|
|
346
|
0 |
0 |
if (warnings::enabled('net_isc_dhcpd_config_parse'))
|
|
355
|
93 |
8 |
$n ? :
|
|
375
|
0 |
35 |
if (defined $$linebuf[0]) { }
|
|
378
|
0 |
35 |
unless defined($line = <$fh>)
|
|
384
|
35 |
0 |
if ($self->can('slurp'))
|
|
386
|
28 |
7 |
if ($action eq 'next') { }
|
|
|
7 |
0 |
elsif ($action eq 'last') { }
|
|
|
0 |
0 |
elsif ($action eq 'backtrack') { }
|
|
435
|
225 |
2350 |
if $name =~ /s$/
|
|
440
|
2575 |
0 |
unless ($meta->find_method_by_name($attr))
|
|
446
|
0 |
157 |
if @_
|
|
459
|
0 |
0 |
if ref $child eq 'HASH'
|
|
469
|
25 |
132 |
wantarray ? :
|
|
475
|
261 |
8 |
@_ == 1 ? :
|
|
478
|
269 |
0 |
if (ref $child eq 'HASH')
|
|
490
|
0 |
3 |
if (ref $query ne 'HASH')
|
|
496
|
36 |
2 |
if ($class ne ref $child)
|
|
500
|
1 |
1 |
unless $child->$key eq $$query{$key}
|
|
511
|
0 |
10 |
unless my $query = shift()
|
|
518
|
57 |
15 |
if ($class ne ref $$children[$i])
|
|
522
|
4 |
9 |
unless $$children[$i]->$key eq $$query{$key}
|
|
550
|
1 |
6 |
unless ($class =~ /::/)
|
|
558
|
3 |
3 |
if (ref $child eq $class)
|
|
562
|
6 |
0 |
if ($child->_children)
|
|
587
|
30 |
19 |
if ($self->parent and not $self->can('generate_with_include'))
|