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