| line |
true |
false |
branch |
|
63
|
0 |
0 |
unless ($2) |
|
65
|
0 |
0 |
if (exists $__typeof{$2}) |
|
77
|
0 |
0 |
unless ($mime) |
|
138
|
0 |
1 |
if (ref $$args{'include'} eq 'ARRAY') |
|
142
|
0 |
1 |
if ($$args{'matching'}) |
|
143
|
0 |
0 |
ref($$args{'matching'} eq 'ARRAY') ? : |
|
147
|
0 |
1 |
if (ref $$args{'starting'} eq 'ARRAY') |
|
151
|
1 |
0 |
if (ref $$args{'ending'} eq 'ARRAY') |
|
155
|
0 |
1 |
if ($$args{'directories'}) |
|
216
|
0 |
1 |
if (ref $$args{'exclude'} eq 'ARRAY') |
|
220
|
1 |
0 |
if ($$args{'matching'}) |
|
221
|
0 |
1 |
ref $$args{'matching'} eq 'ARRAY' ? : |
|
225
|
0 |
1 |
if (ref $$args{'starting'} eq 'ARRAY') |
|
229
|
0 |
1 |
if (ref $$args{'ending'} eq 'ARRAY') |
|
246
|
0 |
0 |
if ($what) |
|
306
|
0 |
21 |
if (defined $debug) |
|
307
|
0 |
0 |
int $debug ? : |
|
|
0 |
0 |
$debug ? : |
|
326
|
9 |
10 |
unless ($$self{'XML::Filter::XML_Directory_Pruner__skip'}) |
|
346
|
0 |
19 |
if ($self->debug >= 2) |
|
351
|
0 |
0 |
if (exists $$data{'Attributes'}{'{}name'}) |
|
369
|
9 |
10 |
unless ($$self{'XML::Filter::XML_Directory_Pruner__skip'}) |
|
385
|
2 |
17 |
if ($$self{'XML::Filter::XML_Directory_Pruner__skip'} == $$self{'XML::Filter::XML_Directory_Pruner__level'}) |
|
389
|
4 |
15 |
if ($$data{'Name'} =~ /^(directory|file)$/) |
|
405
|
4 |
6 |
unless ($$self{'XML::Filter::XML_Directory_Pruner__skip'}) |
|
420
|
4 |
15 |
if ($$data{'Name'} =~ /^(file|directory)$/) |
|
424
|
3 |
1 |
unless ($$self{'XML::Filter::XML_Directory_Pruner__skip'}) |
|
455
|
1 |
2 |
if ($$self{'XML::Filter::XML_Directory_Pruner__level'} == 2) |
|
459
|
1 |
1 |
if ($$self{'XML::Filter::XML_Directory_Pruner__ima'} eq 'directory') |
|
460
|
0 |
1 |
if ($ok and $$self{'XML::Filter::XML_Directory_Pruner__exclude_subdirs'}) |
|
461
|
0 |
0 |
if $self->debug >= 3 |
|
467
|
0 |
2 |
if ($ok and ($$self{'XML::Filter::XML_Directory_Pruner__ima'} eq 'file' and $$self{'XML::Filter::XML_Directory_Pruner__exclude_files'})) |
|
468
|
0 |
0 |
if $self->debug >= 3 |
|
475
|
0 |
2 |
if ($ok and $$self{'XML::Filter::XML_Directory_Pruner__include_matching'} eq 'ARRAY') |
|
477
|
0 |
0 |
$data =~ /$pattern/ ? : |
|
479
|
0 |
0 |
if ($ok) |
|
480
|
0 |
0 |
if $self->debug >= 3 |
|
487
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__include'} eq 'ARRAY') |
|
489
|
0 |
0 |
$data =~ /^($match)$/ ? : |
|
491
|
0 |
0 |
if ($ok) |
|
492
|
0 |
0 |
if $self->debug >= 3 |
|
499
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__include_starting'} eq 'ARRAY') |
|
501
|
0 |
0 |
$data =~ /^($match)(.*)$/ ? : |
|
503
|
0 |
0 |
if ($ok) |
|
504
|
0 |
0 |
if $self->debug >= 3 |
|
511
|
2 |
0 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__include_ending'} eq 'ARRAY') |
|
513
|
0 |
2 |
$data =~ /^(.*)($match)$/ ? : |
|
515
|
0 |
2 |
if ($ok) |
|
516
|
0 |
0 |
if $self->debug >= 3 |
|
525
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__exclude_matching'} eq 'ARRAY') |
|
529
|
0 |
0 |
if $self->debug >= 4 |
|
532
|
0 |
0 |
$data =~ /$pattern/ ? : |
|
534
|
0 |
0 |
unless ($ok) |
|
535
|
0 |
0 |
if $self->debug >= 3 |
|
543
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__exclude'} eq 'ARRAY') |
|
545
|
0 |
0 |
$data =~ /^($match)$/ ? : |
|
547
|
0 |
0 |
unless ($ok) |
|
548
|
0 |
0 |
if $self->debug >= 3 |
|
555
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__exclude_starting'} eq 'ARRAY') |
|
557
|
0 |
0 |
$data =~ /^($match)(.*)$/ ? : |
|
559
|
0 |
0 |
unless ($ok) |
|
560
|
0 |
0 |
if $self->debug >= 3 |
|
567
|
0 |
2 |
if ($ok and ref $$self{'XML::Filter::XML_Directory_Pruner__exclude_ending'} eq 'ARRAY') |
|
569
|
0 |
0 |
$data =~ /^(.*)($match)$/ ? : |
|
571
|
0 |
0 |
unless ($ok) |
|
572
|
0 |
0 |
if $self->debug >= 3 |
|
581
|
2 |
0 |
unless ($ok) |
|
582
|
0 |
2 |
if $self->debug >= 2 |