| 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) |