line |
true |
false |
branch |
548
|
0 |
24 |
defined $_[0] ? : |
551
|
0 |
24 |
unless ref $opt eq 'HASH' |
554
|
0 |
24 |
exists $$opt{'indent'} ? : |
557
|
0 |
24 |
exists $$opt{'method_factory_name_to_method_base_filter'} ? : |
560
|
0 |
24 |
exists $$opt{'method_operation_filter'} ? : |
563
|
0 |
24 |
exists $$opt{'str_after_comma'} ? : |
566
|
0 |
24 |
exists $$opt{'str_around_complex_subscripts'} ? : |
569
|
0 |
24 |
exists $$opt{'str_around_operators'} ? : |
572
|
0 |
24 |
exists $$opt{'str_between_conditional_and_parenthesis'} ? : |
575
|
0 |
24 |
exists $$opt{'str_between_function_and_parenthesis'} ? : |
578
|
0 |
24 |
exists $$opt{'str_post_block_close_curl'} ? : |
581
|
0 |
24 |
exists $$opt{'str_pre_block_open_curl'} ? : |
591
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
599
|
0 |
264 |
if (ref $val and exists $ALLOW_ISA{$name}) |
601
|
0 |
0 |
if &UNIVERSAL::isa($val, $class) |
606
|
48 |
216 |
if (ref $val and exists $ALLOW_REF{$name}) |
607
|
48 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
611
|
216 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
613
|
216 |
0 |
if $val =~ /$rx/ |
618
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
619
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
703
|
0 |
615 |
if (ref $_[0] and &UNIVERSAL::isa($_[0], 'PerlBean::Style')) { } |
|
603 |
12 |
elsif (defined $_[0] and not ref $_[0] and $_[0] eq 'PerlBean::Style') { } |
711
|
603 |
12 |
if defined $SINGLETON |
729
|
0 |
24 |
unless &_value_is_allowed('indent', $val) |
735
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
749
|
0 |
24 |
unless &_value_is_allowed('method_factory_name_to_method_base_filter', $val) |
755
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
766
|
0 |
24 |
unless &_value_is_allowed('method_operation_filter', $val) |
772
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
783
|
0 |
24 |
unless &_value_is_allowed('str_after_comma', $val) |
789
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
800
|
0 |
24 |
unless &_value_is_allowed('str_around_complex_subscripts', $val) |
806
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
817
|
0 |
24 |
unless &_value_is_allowed('str_around_operators', $val) |
823
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
834
|
0 |
24 |
unless &_value_is_allowed('str_between_conditional_and_parenthesis', $val) |
840
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
851
|
0 |
24 |
unless &_value_is_allowed('str_between_function_and_parenthesis', $val) |
857
|
12 |
12 |
if not defined $SINGLETON or $self != $SINGLETON |
868
|
0 |
36 |
unless &_value_is_allowed('str_post_block_close_curl', $val) |
886
|
0 |
36 |
unless &_value_is_allowed('str_pre_block_open_curl', $val) |