| line |
true |
false |
branch |
|
29
|
0 |
0 |
if defined $_
|
|
38
|
3 |
3 |
if (not ref $class) { }
|
|
42
|
0 |
3 |
unless $$self{'_schema'} = shift()
|
|
49
|
0 |
3 |
if $@
|
|
52
|
3 |
0 |
if reftype($$self{'_schema'}) eq 'HASH'
|
|
57
|
3 |
0 |
if ref $$self{'_schema'} eq 'ARRAY'
|
|
74
|
3 |
0 |
unless (blessed $_ and $_->isa('Class::Tangram::Generator'))
|
|
79
|
24 |
0 |
unless defined &{$ref;}
|
|
98
|
0 |
3 |
unless ($class)
|
|
103
|
0 |
3 |
if (ref $class eq 'HASH')
|
|
107
|
0 |
3 |
unless exists $$self{'_schema'}{$class}
|
|
108
|
0 |
3 |
unless $$self{'_done'}{$class}
|
|
120
|
0 |
18 |
unless exists $$self{'_schema'}{$class}
|
|
121
|
18 |
0 |
unless ($$self{'_done'}{$class})
|
|
127
|
10 |
8 |
unless $$self{'_schema'}{$class}{'bases'}
|
|
128
|
5 |
5 |
unless ($$self{'_done'}{$base})
|
|
132
|
5 |
5 |
unless UNIVERSAL::isa($class, $base)
|
|
136
|
9 |
9 |
if (defined $skip_use) { }
|
|
137
|
2 |
7 |
if ($skip_use)
|
|
140
|
0 |
2 |
unless open GEN, "<$skip_use"
|
|
144
|
1 |
1 |
if $@
|
|
160
|
0 |
9 |
if (exists $INC{$filename}) { }
|
|
167
|
1 |
8 |
if $@ and not $@ =~ /^Can't locate \Q$filename.pm\E/
|
|
183
|
8 |
8 |
unless defined ${"${class}::schema";}
|
|
187
|
12 |
8 |
unless $$self{'_schema'}{$class}{'methods'}
|
|
192
|
2 |
2 |
unless defined &{"${class}::$name";}
|
|
209
|
9 |
4 |
if ($$self{'_schema'}{$pkg}) { }
|
|
213
|
9 |
81 |
if ref $path
|
|
214
|
2 |
79 |
if (-f "$path/$fn")
|
|
228
|
0 |
8 |
unless open DEVNULL, "<$Class::Tangram::Generator::stub"
|
|
243
|
0 |
0 |
if (wantarray)
|
|
252
|
0 |
0 |
if (not $$self{'fh'} and $$self{'source'})
|
|
253
|
0 |
0 |
unless open GENERATOR_PM, "<$$self{'source'}"
|
|
261
|
0 |
0 |
if (not $$self{'state'}) { }
|
|
|
0 |
0 |
elsif ($$self{'state'} =~ /Package/ and $$self{'fh'}) { }
|
|
|
0 |
0 |
elsif ($$self{'state'} =~ /Package|postamble/) { }
|
|
|
0 |
0 |
elsif ($$self{'state'} =~ /END/) { }
|
|
273
|
0 |
0 |
if ($line =~ /^__END__/)
|
|
277
|
0 |
0 |
if (defined $line) { }
|
|
293
|
0 |
0 |
if $$self{'fh'}
|