Branch Coverage

blib/lib/HTML/Mason/Compiler/ToObject.pm
Criterion Covered Total %
branch 77 84 91.6


line true false branch
84 546 1 if exists $p{'comp_class'}
108 504 14 if (defined $file and not -f $file)
110 99 405 unless (-d $dirname)
111 0 99 if -e _
113 0 99 unless -d $dirname
116 0 504 if -d $file
119 1 517 if taint_is_on()
121 0 518 unless open my $fh, "> $file"
130 0 502 unless close $fh
139 2013 112 if ($fh) { }
141 0 6599 ref $_ ? :
145 0 357 ref $_ ? :
158 43 487 if %{$c->{'def'};}
159 36 494 if %{$c->{'method'};}
169 43 487 if %{$c->{'def'};}
170 36 494 if %{$c->{'method'};}
172 11 519 if ($self->_blocks('shared')) { }
234 526 4 unless $self->named_component_subs
306 528 2 $self->use_strict ? :
2 528 $self->use_warnings ? :
335 981 79 unless %{$c->{$type};}
364 7 633 if ($self->named_component_subs) { }
380 19 621 if keys %{$$self{"current_compile"}{"flags"};}
383 20 620 if keys %{$$self{"current_compile"}{"attr"};}
386 48 592 if @{$self->{'current_compile'}{'args'};}
388 29 611 if $self->_blocks("filter")
424 648 7 if $self->in_package eq "HTML::Mason::Commands"
433 674 9 if ($self->enable_autoflush) { }
456 596 48 unless (@{$self->{'current_compile'}{'args'};})
458 578 18 unless $define_args_hash
472 2 46 if ($define_args_hash)
494 31 17 if (@required)
517 9 75 if ($coercion_funcs{$_->{'type'}}) { }
526 78 6 if (defined $_->{'line'} and defined $_->{'file'} and $self->use_source_line_numbers)
532 42 42 if (defined $_->{'default'}) { }
536 1 41 if defined $_->{'default'} and $_->{'default'} =~ /\#/
561 1 643 if $self->define_args_hash eq "always"
562 2 641 if $self->define_args_hash eq "never"
573 19 2029 if /ARGS/
582 615 29 unless @filter = $self->_blocks("filter")
627 42 42 defined $arg->{'default'} ? :
629 42 42 unless $def eq "undef"