| line |
true |
false |
branch |
|
28
|
0 |
0 |
unless $$sign{'name'} =~ /^[a-z][a-zA-Z0-9\_]*$/ |
|
30
|
0 |
0 |
if $$sign{'name'} eq 'main' |
|
35
|
0 |
0 |
if exists $$self{'functions'}{$name} |
|
39
|
0 |
0 |
unless exists $$self{'functions-doc'}{$name} |
|
50
|
0 |
0 |
unless exists $$self{'classes'}{$classname} |
|
55
|
0 |
0 |
unless $attrname =~ /^[a-z][a-zA-Z0-9\_]*$/ |
|
59
|
0 |
0 |
unless exists $$class{'attr-doc'}{$attrname} |
|
70
|
0 |
0 |
unless exists $$self{'classes'}{$classname} |
|
76
|
0 |
0 |
unless defined $$sign{'returns'} |
|
79
|
0 |
0 |
unless $$sign{'name'} =~ /^[a-z][a-zA-Z0-9\_]*$/ |
|
86
|
0 |
0 |
if exists $$class{'subs'}{$name} |
|
90
|
0 |
0 |
unless exists $$class{'subs-doc'}{$name} |
|
101
|
0 |
0 |
unless exists $$self{'classes'}{$classname} |
|
108
|
0 |
0 |
unless scalar grep({$parentclassname eq $_;} @{$$class{'isa'};}) |
|
119
|
0 |
0 |
unless exists $$self{'classes'}{$classname} |
|
124
|
0 |
0 |
unless $methname =~ /^[a-z][a-zA-Z0-9\_]*$/ |
|
137
|
0 |
0 |
unless exists $$self{'classes'}{$classname} |
|
142
|
0 |
0 |
unless $methname =~ /^[a-z][a-zA-Z0-9\_]*$/ |
|
155
|
0 |
0 |
if exists $$self{'classes'}{$name} |
|
157
|
0 |
0 |
unless $name =~ /^[A-Z][a-zA-Z0-9\_]*$/ |
|
159
|
0 |
0 |
if $name eq 'Object' |
|
161
|
0 |
0 |
if length $name > 256 |
|
189
|
0 |
0 |
unless $opts{'isa'} |
|
199
|
0 |
0 |
unless open SRCFILE, $filename |
|
214
|
0 |
0 |
if m[^/[/\*]] |
|
215
|
0 |
0 |
if (/^\@class/) { } |
|
|
0 |
0 |
elsif (/^\@attr/) { } |
|
|
0 |
0 |
elsif (/^\@(sub|func|before|after)/) { } |
|
|
0 |
0 |
elsif (/^\@top/) { } |
|
|
0 |
0 |
elsif (/^\@bottom/) { } |
|
|
0 |
0 |
elsif (/^\@types/) { } |
|
|
0 |
0 |
elsif (/^[\s\t]*\@/) { } |
|
|
0 |
0 |
elsif (not defined $subname and defined $top) { } |
|
|
0 |
0 |
elsif (not defined $subname and defined $bottom) { } |
|
|
0 |
0 |
elsif (not defined $subname and defined $types) { } |
|
220
|
0 |
0 |
unless exists $$self{'classes'}{$class} |
|
226
|
0 |
0 |
unless defined $classname |
|
233
|
0 |
0 |
if exists $$self{'classes'}{$classname}{'attr'}{$attr} |
|
238
|
0 |
0 |
unless exists $$self{'classes'}{$classname}{'attr-doc'}{$attr} |
|
243
|
0 |
0 |
unless (/^\@func/) |
|
244
|
0 |
0 |
unless defined $classname |
|
252
|
0 |
0 |
if (/^\@sub/) { } |
|
|
0 |
0 |
elsif (/^\@func/) { } |
|
|
0 |
0 |
elsif (/^\@after/) { } |
|
|
0 |
0 |
elsif (/^\@before/) { } |
|
260
|
0 |
0 |
unless exists $$self{'classes'}{$classname}{'subs-doc'}{$methname} |
|
271
|
0 |
0 |
unless exists $$self{'functions-doc'}{$funcname} |
|
313
|
0 |
0 |
if defined $docref |
|
341
|
0 |
0 |
if (defined $classname and defined $subname and defined $buffer) { } |
|
|
0 |
0 |
elsif (defined $funcname and defined $buffer) { } |
|
|
0 |
0 |
elsif (defined $classname and defined $before and defined $buffer) { } |
|
|
0 |
0 |
elsif (defined $classname and defined $after and defined $buffer) { } |
|
381
|
0 |
0 |
unless defined $autogen |
|
383
|
0 |
0 |
if $autogen == 0 and $$self{'autogen'} == 1 |
|
389
|
0 |
0 |
if (scalar keys %{$$self{'functions'};}) |
|
405
|
0 |
0 |
if (scalar @{$$sign{'params'};} > 0) |
|
436
|
0 |
0 |
unless defined $autogen |
|
438
|
0 |
0 |
if $autogen == 0 and $$self{'autogen'} == 1 |
|
444
|
0 |
0 |
if _skip_class($classname, $classnames) |
|
470
|
0 |
0 |
if (scalar @{$$class{'isa'};}) |
|
486
|
0 |
0 |
if (scalar keys %{$subclasses;}) |
|
498
|
0 |
0 |
if (scalar keys %{$$class{'attr'};}) |
|
509
|
0 |
0 |
if (scalar keys %{$$class{'subs'};}) |
|
526
|
0 |
0 |
if (scalar @{$$sign{'params'};} > 0) |
|
592
|
0 |
0 |
exists $$self{'classes'}{$classname} ? : |
|
603
|
0 |
0 |
unless defined $autogen |
|
605
|
0 |
0 |
if $autogen == 0 and $$self{'autogen'} == 1 |
|
632
|
0 |
0 |
if _skip_class($classname, $classnames) |
|
646
|
0 |
0 |
if _skip_class($classname, $classnames) |
|
649
|
0 |
0 |
if _skip_class($parentclassname, $classnames) |
|
657
|
0 |
0 |
if _skip_class($classname, $classnames) |
|
661
|
0 |
0 |
if exists $$self{'classes'}{$attrtype} and not _skip_class($attrtype, $classnames) |
|
848
|
0 |
0 |
unless scalar @{$$self{'classes'}{$classname}{'isa'};} |
|
869
|
0 |
0 |
if $classname eq $parentclassname |
|
876
|
0 |
0 |
scalar @children ? : |
|
892
|
0 |
0 |
unless scalar @{$$class{'isa'};} |
|
900
|
0 |
0 |
unless scalar keys %{$$subclasses{$classname};} |
|
907
|
0 |
0 |
unless scalar keys %{$$class{'attr'};} |
|
926
|
0 |
0 |
unless scalar keys %{$$class{'subs'};} |
|
946
|
0 |
0 |
exists $$self{'classes'}{$classname} ? : |
|
962
|
0 |
0 |
unless $opts{'headers'} |
|
984
|
0 |
0 |
unless scalar grep({$_ eq $h;} @{$gheaders;}) |
|
994
|
0 |
0 |
$debug ? : |
|
1069
|
0 |
0 |
unless scalar keys %{$subclasses{$classname};} |
|
1077
|
0 |
0 |
$first ? : |
|
|
0 |
0 |
scalar @clauses ? : |
|
1091
|
0 |
0 |
$first ? : |
|
1113
|
0 |
0 |
unless scalar keys %{$$class{'attr'};} |
|
1138
|
0 |
0 |
if (length $maincode) |
|
1146
|
0 |
0 |
unless open OUTFILE, '>' . $file |
|
1193
|
0 |
0 |
unless exists $subclasses{$classname} |
|
1208
|
0 |
0 |
unless ($$self{'autogen'}) |
|
1232
|
0 |
0 |
unless exists $functions{$$sign{'name'}} |
|
1275
|
0 |
0 |
exists $$self{'classes'}{$$first_sign{'returns'}} ? : |
|
1281
|
0 |
0 |
scalar grep({exists $$self{'classes'}{$_};} @{$$first_sign{'params'};}) == scalar @{$$first_sign{'params'};} ? : |
|
1283
|
0 |
0 |
exists $$self{'classes'}{$$_[1]} ? : |
|
1296
|
0 |
0 |
if (scalar keys %{$functions{$fname};} > 2) |
|
1302
|
0 |
0 |
exists $$self{'classes'}{$$sign{'returns'}} ? : |
|
1306
|
0 |
0 |
if $returns ne $$sign{'returns'} |
|
1311
|
0 |
0 |
if scalar @{$$sign{'params'};} == 0 |
|
1313
|
0 |
0 |
if ($all_class_types) { } |
|
1315
|
0 |
0 |
if not exists $$self{'classes'}{$$_[1]} |
|
1329
|
0 |
0 |
if $p > scalar @{$$sign{'params'};} - 1 or $paramtype eq 'Object' and not exists $$self{'classes'}{$$sign{'params'}[$p][1]} or $paramtype ne 'Object' and $paramtype ne $$sign{'params'}[$p][1] |
|
1360
|
0 |
0 |
$first ? : |
|
1383
|
0 |
0 |
if (exists $$self{'classes'}{$paramtype}) { } |
|
1416
|
0 |
0 |
if (exists $$self{'classes'}{$paramtype}) |
|
1418
|
0 |
0 |
$p > 0 ? : |
|
1425
|
0 |
0 |
scalar @clauses ? : |
|
1436
|
0 |
0 |
exists $$self{'classes'}{$$param[1]} ? : |
|
1440
|
0 |
0 |
scalar @params ? : |
|
1480
|
0 |
0 |
if ($membertype eq 'attr' and exists $$class{$membertype}{$membername}) |
|
1481
|
0 |
0 |
if $$class{$membertype}{$membername} ne $$parentclass{$membertype}{$membername} |
|
1486
|
0 |
0 |
if ($membertype eq 'subs') |
|
1492
|
0 |
0 |
unless (exists $$class{$membertype}{$membername}) |
|
1511
|
0 |
0 |
if $methname eq 'new' or $methname eq 'delete' |
|
1516
|
0 |
0 |
unless scalar keys %{$methods;} |
|
1520
|
0 |
0 |
if ($hooktype eq 'before') { } |
|
|
0 |
0 |
elsif ($hooktype eq 'after') { } |
|
1543
|
0 |
0 |
if $$sign{'name'} eq $methname |
|
1582
|
0 |
0 |
$attrtype eq 'pthread_mutex_t' ? : |
|
1587
|
0 |
0 |
exists $$class{'before'}{'new'} ? : |
|
|
0 |
0 |
exists $$class{'after'}{'new'} ? : |
|
1608
|
0 |
0 |
if exists $$self{'functions'}{$funcsign} |
|
1636
|
0 |
0 |
if (exists $$self{'classes'}{$$class{'attr'}{$_}}) { } |
|
|
0 |
0 |
elsif ($$class{'attr'}{$_} eq 'float') { } |
|
|
0 |
0 |
elsif ($$class{'attr'}{$_} eq 'int') { } |
|
|
0 |
0 |
elsif ($$class{'attr'}{$_} eq 'long int') { } |
|
|
0 |
0 |
elsif ($$class{'attr'}{$_} eq 'char') { } |
|
|
0 |
0 |
elsif ($$class{'attr'}{$_} eq 'char*') { } |
|
1664
|
0 |
0 |
exists $$class{'before'}{'dump'} ? : |
|
|
0 |
0 |
exists $$class{'after'}{'dump'} ? : |
|
1690
|
0 |
0 |
$attrtype eq 'pthread_mutex_t' ? : |
|
|
0 |
0 |
exists $$self{'classes'}{$attrtype} ? : |
|
1705
|
0 |
0 |
exists $$class{'before'}{'delete'} ? : |
|
|
0 |
0 |
exists $$class{'after'}{'delete'} ? : |
|
1741
|
0 |
0 |
exists $$self{'classes'}{$attrtype} ? : |
|
1757
|
0 |
0 |
exists $$self{'classes'}{$attrtype} ? : |
|
1774
|
0 |
0 |
exists $$self{'classes'}{$type} ? : |
|
1782
|
0 |
0 |
exists $$self{'classes'}{$attrtype} ? : |
|
1801
|
0 |
0 |
unless defined $code |
|
1802
|
0 |
0 |
if ($code =~ m[^\.?\.?/[^\*]] or not $code =~ /\n/ and -f $code and -r $code) |
|
1803
|
0 |
0 |
unless open SRCFILE, $code |
|
1834
|
0 |
0 |
unless scalar grep({$x eq $_;} @clean) |