| line |
true |
false |
branch |
|
305
|
90 |
0 |
defined $_[0] ? : |
|
308
|
0 |
90 |
unless ref $opt eq 'HASH' |
|
311
|
80 |
10 |
if exists $$opt{'assignment'} |
|
314
|
90 |
0 |
if exists $$opt{'comment'} |
|
317
|
0 |
90 |
exists $$opt{'declared'} ? : |
|
320
|
10 |
80 |
if exists $$opt{'description'} |
|
323
|
10 |
80 |
if (exists $$opt{'export_tag'}) { } |
|
324
|
0 |
10 |
unless ref $$opt{'export_tag'} eq 'ARRAY' |
|
332
|
90 |
0 |
if exists $$opt{'symbol_name'} |
|
335
|
75 |
15 |
if exists $$opt{'volatile'} |
|
345
|
180 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
353
|
0 |
100 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
355
|
0 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
360
|
0 |
100 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
361
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
365
|
100 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
367
|
100 |
0 |
if $val =~ /$rx/ |
|
372
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
373
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
447
|
90 |
0 |
if ($$self{'PerlBean_Symbol'}{'declared'}) { } |
|
458
|
75 |
30 |
if ($$self{'PerlBean_Symbol'}{'volatile'}) { } |
|
471
|
0 |
80 |
unless &_value_is_allowed('assignment', $val) |
|
482
|
0 |
90 |
unless &_value_is_allowed('comment', $val) |
|
491
|
90 |
0 |
if (shift()) { } |
|
504
|
0 |
10 |
unless &_value_is_allowed('description', $val) |
|
514
|
0 |
90 |
unless &_value_is_allowed('export_tag', @_) |
|
530
|
0 |
90 |
unless &_value_is_allowed('symbol_name', $val) |
|
539
|
75 |
0 |
if (shift()) { } |
|
559
|
0 |
90 |
unless $self->is_declared |
|
565
|
80 |
10 |
$self->get_assignment ? : |