| line |
true |
false |
branch |
|
188
|
0 |
7 |
if not $caller or $caller eq 'main' |
|
192
|
0 |
7 |
if $@ |
|
196
|
0 |
7 |
if $#subs < 0 |
|
202
|
0 |
16 |
if ($caller ne 'Class::Interface' and $caller ne 'main') |
|
224
|
0 |
3 |
if not $caller or $caller eq 'main' |
|
228
|
0 |
3 |
if $@ |
|
233
|
0 |
3 |
if $#subs < 0 |
|
266
|
0 |
15 |
if $@ |
|
270
|
0 |
15 |
unless (defined &{$implements . '::__get_interface_methods__';}) |
|
276
|
0 |
42 |
unless (UNIVERSAL::can($caller, $sub)) |
|
277
|
0 |
0 |
unless exists $missing{$implements} |
|
283
|
0 |
9 |
if (keys %missing) |
|
287
|
0 |
0 |
if $dieMessage |
|
296
|
9 |
0 |
unless (defined &{$caller . '::import';}) |
|
325
|
0 |
2 |
if $@ |
|
329
|
0 |
2 |
unless (defined &{$extends . '::__get_abstract_methods__';}) |
|
336
|
0 |
2 |
unless (UNIVERSAL::can($caller, $sub)) |
|
337
|
0 |
0 |
unless exists $missing{$extends} |
|
343
|
0 |
2 |
if (keys %missing) |
|
347
|
0 |
0 |
if $dieMessage |
|
382
|
0 |
166 |
if $line eq '__END__' |
|
384
|
10 |
156 |
if $line =~ /^use Class::Interface/i |
|
385
|
7 |
159 |
if $line =~ /^\&?interface\(?\)?/ |
|
386
|
3 |
163 |
if $asAbstract and $line =~ /^\&?abstract\(?\)?/ |
|
388
|
25 |
141 |
if ($line =~ /^sub/) |
|
390
|
3 |
22 |
unless ((my $commentChar = index($line, '#')) < 0) |
|
400
|
3 |
22 |
if ($lineEnd ne ';' and $lineEnd ne '}') |
|
402
|
3 |
0 |
if $asAbstract |
|
416
|
0 |
10 |
unless ($usesInterfaces) |
|
419
|
0 |
10 |
unless ($callsInterface) |
|
420
|
0 |
0 |
$asAbstract ? : |
|
428
|
11 |
0 |
unless $Class::Interface::AUTO_CONSTRUCTOR |
|
432
|
0 |
0 |
unless (defined &{$caller . '::new';}) |
|
439
|
0 |
0 |
if $self->can($field) |
|
451
|
0 |
0 |
if ($Class::Interface::CONFESS == 1) { } |