| 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 =~ /^\.*$/) { } |