Branch Coverage

lib/Pod/Autopod.pm
Criterion Covered Total %
branch 0 220 0.0


line true false branch
220 0 0 if ($self->{'readfile'})
225 0 0 if ($self->{'writefile'})
230 0 0 if ($self->{'readdir'})
243 0 0 if ($self->{'BORDER'} eq '')
281 0 0 if (not ref $code) { }
306 0 0 if ($row =~ /$border/)
340 0 0 wantarray ? :
364 0 0 if ($file =~ /\.(pm|pl|cgi)$/i) { }
378 0 0 unless my $file = shift()
403 0 0 unless my $directory = shift()
419 0 0 if ($poddir)
426 0 0 unless (-e $p)
433 0 0 if ($updateonly)
434 0 0 unless ($filecontent =~ /$border/ or $filecontent =~ /AUTOPODME/)
437 0 0 if ($pod)
445 0 0 if $verbose and $fileout
465 0 0 wantarray ? :
483 0 0 if (-d $d)
507 0 0 unless ($d =~ /^\.\.?/)
510 0 0 wantarray ? :
536 0 0 if ($para{'onlyFiles'} ne '')
541 0 0 if ($i =~ /^\.\.?$/)
543 0 0 if (-d $i)
546 0 0 if (exists $para{'ext'})
547 0 0 if ($i =~ /\.$ext$/i) { }
550 0 0 if ($ok == 1)
586 0 0 unless my $arr = shift()
602 0 0 if ($line =~ /^\s*\#/ || $p == 0 and $self->{'STATE'} eq 'headwait') { }
0 0 elsif ($line =~ /^\s*$/ || $p == 0 and $self->{'STATE'} eq 'head') { }
608 0 0 if (exists $self->{'METHOD_ATTR'}{$self->_getMethodName}{'doxyparamline'} and scalar @{$self->{'METHOD_ATTR'}{$self->_getMethodName}{'doxyparamline'};} > 0)
612 0 0 unless ($methodlinerest =~ /\{\s+.+/)
617 0 0 unless ($firstword =~ /^[\$\@\%]/)
633 0 0 if ($self->{'STATE'} eq 'headwait' and not $line =~ /^\s*$/ and not $line =~ /^\s*\#/)
638 0 0 if ($line =~ /^\s*\}/ || $p == 0 || $line =~ /^\s*sub [^ ]+/ and $self->{'STATE'} =~ /^(head|headwait|bodywait|free)$/)
646 0 0 if ($self->{'STATE'} eq 'head')
647 0 0 if ($line =~ /^\s*#\s*\@return\s+(.*)/)
653 0 0 unless ($retval =~ /^[\$\@\%]/)
655 0 0 if (exists $self->{'METHOD_ATTR'}{$self->_getMethodName}{'returnline'}) { }
669 0 0 if ($line =~ /^\s*#\s*\@(brief|method)\s+(.*)/)
675 0 0 if ($line =~ /^\s*#\s*\@param\s+(.*)/)
696 0 0 if ($line =~ /^\s*sub [^ ]+/)
709 0 0 if ($writeOut)
710 0 0 if ($self->{'STATE'} eq 'head') { }
0 0 elsif ($self->{'STATE'} eq 'body') { }
717 0 0 if ($line =~ /^\s*package ([^\;]+)\;(.*)/)
723 0 0 if ($line =~ /^\s*use +([^\; ]+)[\; ](.*)/)
732 0 0 if ($line =~ /^\s*use base +([^\; ]+)[\;](.*)/ or $line =~ /^\s*our +\@ISA +([^\; ]+)[\;](.*)/)
741 0 0 if $n
749 0 0 if (exists $self->{'METHOD_ATTR'}{'new'} or scalar $self->{'INHERITS_FROM'} >= 1)
754 0 0 unless (exists $self->{'PKGNAME'})
779 0 0 unless my $arr = shift()
790 0 0 if ($line =~ /^\s*\#+(.*)/ and $state =~ /^(wait|rem)$/) { }
0 0 elsif (not $line =~ /^\s*\#+(.*)/ and $state =~ /^(rem)$/) { }
796 0 0 if ($text =~ /^\s*\@brief\s+(.*)/i)
823 0 0 unless my $arr = $v->{'array'}
838 0 0 if ($next =~ /^\s*(\={3,50})/)
844 0 0 if ($i >= $nextok)
882 0 0 if ($line =~ /^\s*return (.*)/)
883 0 0 unless ($self->_getMethodReturn)
926 0 0 if ($m)
949 0 0 if ($s =~ /sub ([^ \{]+)(.*)/)
1027 0 0 if (ref $s) { }
1120 0 0 unless ($h =~ /^(\s*)$/)
1123 0 0 if ($l > 0 and $l < $space)
1130 0 0 if ($space != 99)
1142 0 0 if ($line =~ /^\s*-\s+(.*)/) { }
0 0 elsif ($self->{'SUB_STATE'} eq 'listitem') { }
1145 0 0 if ($self->{'SUB_STATE'} ne 'listitem')
1165 0 0 if ($line =~ /^\s*\@method\s+(.*)/i)
1170 0 0 if (scalar @replace > 0)
1205 0 0 if ($o =~ /^([^ ]+)\s*\=\>\s*([^ ]+)$/) { }
0 0 elsif ($o =~ /^([^ ]+) ([^ ]+)$/) { }
0 0 elsif ($o =~ /^([^ \$\%\@]+)$/) { }
0 0 elsif ($o =~ /^([\$\%\@\\]+)(.*)$/) { }
1219 0 0 if ($typec eq '$')
1220 0 0 if ($typec eq '\\$')
1221 0 0 if ($typec eq '%')
1222 0 0 if ($typec eq '\\%')
1223 0 0 if ($typec eq '@')
1224 0 0 if ($typec eq '\\@')
1225 0 0 if ($typec eq '&')
1226 0 0 if ($typec eq '\\&')
1284 0 0 if (scalar @$re > 0)
1292 0 0 unless ($dontshow{$name})
1296 0 0 if ($name ne $self->{'PKGNAME'})
1324 0 0 if (scalar @$re > 0)
1332 0 0 unless ($dontshow{$name})
1369 0 0 unless (exists $def{$n})
1376 0 0 if (exists $parts->{$area})
1409 0 0 if $self->{'PKGNAME_DESC'}
1441 0 0 if (scalar @$desc > 0)
1471 0 0 if (exists $attr->{'new'})
1479 0 0 if ($method eq '')
1481 0 0 if ($method =~ /^\_/)
1483 0 0 if ($self->{'alsohiddenmethods'})
1486 0 0 if ($ok)
1487 0 0 if ($method ne 'new')
1510 0 0 if ($self->{'ISCLASS'})
1525 0 0 if ($retstring) { }
0 0 elsif ($paramstring) { }
1537 0 0 if ($addit)
1546 0 0 if ($mat->{'head'})
1548 0 0 if ($text)
1569 0 0 if (exists $params->[0][0]{'type'} and $params->[0][0]{'type'} eq 'void')
1582 0 0 if ($type ne 'keyvalue') { }
1598 0 0 if (scalar @$params > 1 and $braces)
1634 0 0 if (not -e $dir)
1638 0 0 unless (-e $path . $p)
1654 0 0 if ($p =~ m[/]) { }
1657 0 0 if ($p =~ /^\.*$/) { }