| line |
true |
false |
branch |
|
326
|
516 |
0 |
defined $_[0] ? : |
|
329
|
0 |
516 |
unless ref $opt eq 'HASH' |
|
332
|
503 |
13 |
if exists $$opt{'body'} |
|
335
|
394 |
122 |
if exists $$opt{'description'} |
|
338
|
439 |
77 |
exists $$opt{'documented'} ? : |
|
341
|
0 |
516 |
exists $$opt{'exception_class'} ? : |
|
344
|
27 |
489 |
exists $$opt{'implemented'} ? : |
|
347
|
11 |
505 |
if exists $$opt{'interface'} |
|
350
|
0 |
516 |
unless exists $$opt{'method_name'} |
|
354
|
251 |
265 |
if exists $$opt{'parameter_description'} |
|
357
|
0 |
516 |
if exists $$opt{'perl_bean'} |
|
360
|
372 |
144 |
if exists $$opt{'volatile'} |
|
370
|
0 |
819 |
unless defined $self->get_perl_bean |
|
371
|
136 |
683 |
unless defined $self->get_perl_bean->get_collection |
|
379
|
0 |
419 |
unless defined $super_bean |
|
387
|
198 |
221 |
if defined $super_meth |
|
398
|
1161 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
406
|
516 |
1019 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
408
|
516 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
413
|
0 |
1019 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
414
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
418
|
1019 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
420
|
1019 |
0 |
if $val =~ /$rx/ |
|
425
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
426
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
446
|
727 |
76 |
if ($$self{'PerlBean_Method'}{'description'}) |
|
447
|
5 |
722 |
if ($$self{'PerlBean_Method'}{'description'} =~ /__SUPER_POD__/) { } |
|
450
|
5 |
0 |
if defined $super_meth |
|
462
|
76 |
0 |
if defined $super_meth |
|
483
|
1102 |
0 |
if defined $self->get_perl_bean |
|
493
|
432 |
371 |
if ($$self{'PerlBean_Method'}{'parameter_description'}) |
|
494
|
0 |
432 |
if ($$self{'PerlBean_Method'}{'parameter_description'} =~ /__SUPER_POD__/) { } |
|
497
|
0 |
0 |
if defined $super_meth |
|
508
|
81 |
290 |
if defined $super_meth |
|
522
|
722 |
240 |
if ($$self{'PerlBean_Method'}{'documented'}) { } |
|
533
|
501 |
15 |
if ($$self{'PerlBean_Method'}{'implemented'}) { } |
|
544
|
34 |
877 |
if ($$self{'PerlBean_Method'}{'interface'}) { } |
|
555
|
372 |
288 |
if ($$self{'PerlBean_Method'}{'volatile'}) { } |
|
568
|
0 |
503 |
unless &_value_is_allowed('body', $val) |
|
579
|
0 |
394 |
unless &_value_is_allowed('description', $val) |
|
588
|
374 |
142 |
if (shift()) { } |
|
601
|
0 |
516 |
unless defined $val |
|
604
|
0 |
516 |
unless &_value_is_allowed('exception_class', $val) |
|
613
|
501 |
15 |
if (shift()) { } |
|
624
|
11 |
0 |
if (shift()) { } |
|
637
|
0 |
516 |
unless defined $val |
|
640
|
0 |
516 |
unless &_value_is_allowed('method_name', $val) |
|
651
|
0 |
251 |
unless &_value_is_allowed('parameter_description', $val) |
|
662
|
0 |
516 |
unless &_value_is_allowed('perl_bean', $val) |
|
671
|
372 |
0 |
if (shift()) { } |
|
684
|
15 |
501 |
unless $self->is_implemented |
|
688
|
11 |
490 |
$self->is_interface ? : |
|
695
|
488 |
13 |
defined $self->get_body ? : |
|
709
|
240 |
722 |
unless $self->is_documented |
|
715
|
374 |
348 |
if ($pkg eq $self->get_package) { } |
|
|
348 |
0 |
elsif (not $self->isa('PerlBean::Method::Constructor')) { } |
|
716
|
7 |
367 |
if ($self->is_interface) { } |
|
721
|
36 |
331 |
if (defined $super_meth) |
|
722
|
16 |
20 |
if ($super_meth->is_interface) { } |
|
|
5 |
15 |
elsif (not $self->isa('PerlBean::Method::Constructor')) { } |