Branch Coverage

blib/lib/PFT/Map/Index.pm
Criterion Covered Total %
branch 39 60 65.0


line true false branch
102 0 25 unless (defined $cntnt)
103 0 0 unless defined $hdr
107 0 25 unless ref($cntnt) =~ /PFT::Content::(Page|Blog|Picture|Attachment|Tag|Month)/u
112 5 20 if ($1 eq 'Page') { }
3 17 elsif ($1 eq 'Tag') { }
10 7 elsif ($1 eq 'Blog') { }
3 4 elsif ($1 eq 'Month') { }
2 2 elsif ($1 eq 'Picture') { }
2 0 elsif ($1 eq 'Attachment') { }
149 0 15 unless $symbol and $symbol->isa('PFT::Text::Symbol')
154 15 0 if ($kwd =~ /^(?:pic|page|blog|attach|tag)$/u) { }
167 7 8 if ($kwd eq 'blog')
176 3 5 if ($kwd eq 'pic') { }
2 3 elsif ($kwd eq 'attach') { }
2 1 elsif ($kwd eq 'page') { }
1 0 elsif ($kwd eq 'tag') { }
193 7 1 defined $out ? :
202 4 3 if ($method eq 'back') { }
3 0 elsif ($method =~ /^(?:d|date)$/u) { }
203 1 3 @args ? :
204 0 4 unless $steps > 0
208 3 1 defined $node ? :
210 0 3 if 3 > grep(defined($_), @args)
211 2 1 if 3 == @args
214 1 2 unless @select
226 0 0 if ($kwd eq 'web')
228 0 0 if ((my $service = shift @args) eq 'ddg') { }
0 0 elsif ($service eq 'man') { }
230 0 0 if (my $bang = shift @args)
238 0 0 unless (defined $out)