| line |
true |
false |
branch |
|
147
|
0 |
15 |
unless my $tree = $$self{'tree'} = 'Apache::Admin::Config::Tree'->new(@_) |
|
150
|
7 |
8 |
if (defined $htaccess) { } |
|
152
|
0 |
7 |
unless $tree->_load($htaccess) |
|
156
|
0 |
8 |
unless $tree->_init |
|
187
|
1 |
1 |
defined $saveas ? : |
|
190
|
0 |
2 |
unless defined $htaccess |
|
195
|
2 |
0 |
if (ref $htaccess eq 'GLOB') { } |
|
201
|
0 |
0 |
unless $fh = 'FileHandle'->new(">$htaccess") |
|
205
|
0 |
2 |
$reformat ? : |
|
292
|
0 |
0 |
if ($_->type eq 'section') { } |
|
303
|
0 |
0 |
if ($_->type eq 'directive') { } |
|
|
0 |
0 |
elsif ($_->type eq 'comment') { } |
|
|
0 |
0 |
elsif ($_->type eq 'blank') { } |
|
316
|
0 |
0 |
defined $_->value ? : |
|
391
|
32 |
0 |
unless defined $args{'type'} |
|
392
|
32 |
0 |
unless defined $args{'name'} |
|
393
|
29 |
3 |
unless defined $args{'value'} |
|
396
|
0 |
32 |
unless defined $which |
|
399
|
0 |
32 |
if $which =~ /[^\d\-]/ |
|
401
|
0 |
32 |
if @_ |
|
403
|
0 |
32 |
unless $$self{'type'} eq 'section' |
|
406
|
16 |
16 |
if defined $args{'name'} |
|
407
|
18 |
14 |
if defined $args{'value'} |
|
424
|
3985 |
0 |
if (defined $$item{$_}) { } |
|
432
|
3084 |
901 |
unless $match |
|
435
|
495 |
3084 |
if ($match) |
|
441
|
2 |
30 |
if (length $which) { } |
|
443
|
2 |
0 |
defined overload::StrVal($items[$which]) ? : |
|
452
|
30 |
0 |
@items ? : |
|
532
|
0 |
4 |
$indent > 0 ? : |
|
|
4 |
47 |
$level ? : |
|
576
|
0 |
12 |
unless defined $name |
|
577
|
8 |
4 |
defined $value ? : |
|
803
|
0 |
37 |
if ref $target eq 'Apache::Admin::Config' |
|
806
|
0 |
37 |
unless defined $target |
|
808
|
0 |
37 |
if @_ > 3 |
|
812
|
0 |
37 |
unless $$self{'type'} eq 'section' |
|
815
|
12 |
25 |
defined $where ? : |
|
816
|
3 |
34 |
if ($where eq '-before' || $where eq '-after' and defined $target) |
|
818
|
0 |
3 |
unless ref $target and $target->isa('Apache::Admin::Config::Tree') |
|
820
|
0 |
3 |
unless $target->isin($self) |
|
826
|
0 |
37 |
if ($where eq '-before') { } |
|
|
3 |
34 |
elsif ($where eq '-after') { } |
|
|
6 |
28 |
elsif ($where eq '-ontop') { } |
|
|
28 |
0 |
elsif ($where eq '-onbottom' or $where eq '') { } |
|
849
|
0 |
37 |
if (ref $type) { } |
|
|
14 |
23 |
elsif ($type eq 'section') { } |
|
|
12 |
11 |
elsif ($type eq 'directive') { } |
|
|
11 |
0 |
elsif ($type eq 'comment') { } |
|
|
0 |
0 |
elsif ($type eq 'blank') { } |
|
856
|
0 |
14 |
unless defined $name and defined $value |
|
866
|
0 |
12 |
unless defined $name |
|
875
|
0 |
11 |
unless defined $name |
|
877
|
1 |
10 |
defined $value && $value ? : |
|
884
|
0 |
0 |
$name ? : |
|
|
0 |
0 |
defined $name ? : |
|
992
|
6 |
3 |
if ($type eq 'directive' or $type eq 'section') { } |
|
|
3 |
0 |
elsif ($type eq 'comment') { } |
|
996
|
0 |
6 |
if ($newvalue =~ /\n/) { } |
|
1000
|
0 |
0 |
$type eq 'directive' ? : |
|
1013
|
3 |
3 |
if ($type eq 'directive') { } |
|
1064
|
0 |
0 |
if $dest->isin($self, '-recursif') |
|
1116
|
0 |
0 |
if $_ eq 'parent' |
|
1120
|
0 |
0 |
if ($self->type eq 'section') |
|
1143
|
0 |
40 |
unless $self->parent |
|
1156
|
0 |
0 |
unless $self->parent |
|
1170
|
0 |
0 |
if ($self->type eq 'section') { } |
|
1208
|
6 |
3 |
if ref $target eq 'Apache::Admin::Config' |
|
1209
|
0 |
9 |
unless defined $$self{'parent'} |
|
1210
|
0 |
9 |
unless ref $target and $target->isa('Apache::Admin::Config::Tree') |
|
1212
|
0 |
9 |
unless $$target{'type'} eq 'section' |
|
1214
|
0 |
9 |
if overload::StrVal($self) eq overload::StrVal($target) |
|
1216
|
3 |
6 |
if ($recursif) { } |
|
1235
|
12 |
143 |
if ($meth eq 'eq') { } |
|
|
3 |
140 |
elsif ($meth eq 'ne') { } |
|
|
3 |
137 |
elsif ($meth eq '==') { } |
|
|
3 |
134 |
elsif ($meth eq '!=') { } |
|
|
126 |
8 |
elsif (not defined $$self{'value'}) { } |
|
1237
|
0 |
12 |
if ($^W and not defined $other && defined $$self{'value'}) |
|
1246
|
0 |
3 |
if ($^W and not defined $other && defined $$self{'value'}) |
|
1255
|
0 |
3 |
if ($^W and not defined $other && defined $$self{'value'}) |
|
1264
|
0 |
3 |
if ($^W and not defined $other && defined $$self{'value'}) |
|
1342
|
3 |
0 |
if (defined $$self{'parent'}) |
|
1345
|
3 |
0 |
if (defined $index) |
|
1418
|
51 |
6 |
unless $self = $self->parent |
|
1427
|
0 |
6 |
unless defined $$self{'parent'} |
|
1431
|
6 |
6 |
if overload::StrVal($pchildren[$i]) eq overload::StrVal($self) |
|
1440
|
18 |
856 |
if ($$_{'type'} eq 'section') { } |
|
1456
|
40 |
133 |
if overload::StrVal($_[1]) eq overload::StrVal($i) |
|
1459
|
1 |
132 |
if defined $found |
|
1461
|
18 |
114 |
defined $_[0]{'length2'} ? : |
|
1470
|
0 |
0 |
if $_[1] eq $i |
|
1480
|
9 |
2066 |
if (defined $index and $index != -1) { } |
|
1494
|
744 |
4 |
defined $value ? : |
|
1513
|
56 |
0 |
defined $value ? : |
|
1537
|
11 |
4725 |
defined $index ? : |
|
1538
|
4109 |
627 |
if (defined $group and $group and defined $$tree{'children'}[$_index] and $$tree{'children'}[$_index]->type eq 'comment') { } |
|
1567
|
0 |
644 |
defined $index ? : |
|
1568
|
0 |
644 |
if (defined $group and $group and defined $$tree{'children'}[$_index] and $$tree{'children'}[$_index]->type eq 'blank') { } |
|
1609
|
0 |
7 |
unless my $next .= <$fh> |
|
1618
|
4725 |
1464 |
if ($line =~ /^\s*#\s?(.*?)\s*$/) { } |
|
|
644 |
820 |
elsif ($line eq '') { } |
|
|
736 |
84 |
elsif ($line =~ /^(\w+)(?:\s+(.*?)|)$/) { } |
|
|
42 |
42 |
elsif ($line =~ /^<\s*(\w+)(?:\s+([^>]+)|\s*)>$/) { } |
|
|
42 |
0 |
elsif ($line =~ m[^$]) { } |
|
1643
|
0 |
42 |
if not @level or $section_name ne lc $level[-1]{'name'} |
|
1655
|
0 |
15 |
if $Apache::Admin::Config::DEBUG |
|
1668
|
60 |
176 |
unless @$args |
|
1674
|
20 |
694 |
if (defined $$args[$n] and not ref $$args[$n] and $$args[$n] eq $name) |
|
1676
|
0 |
20 |
if not $boolean and $n + 1 >= @$args |
|
1677
|
12 |
8 |
$boolean ? : |
|
1678
|
0 |
20 |
unless defined $value |
|
1679
|
12 |
8 |
wantarray ? : |
|
1700
|
3 |
4 |
if (ref $htaccess eq 'GLOB') { } |
|
1707
|
0 |
4 |
if not -f $htaccess and $$self{'create'} |
|
1709
|
0 |
4 |
unless -r $htaccess |
|
1710
|
0 |
4 |
unless $fh = 'FileHandle'->new($htaccess) |