| line |
true |
false |
branch |
|
24
|
264 |
38 |
if ($_[0] =~ /^\-(\w+)$/) { } |
|
31
|
153 |
10 |
if (scalar @traits) { } |
|
32
|
0 |
153 |
unless $callee eq 'Text::MicroMason::Base' |
|
46
|
154 |
49 |
if (not ref $referent) { } |
|
71
|
17 |
294 |
unless ($self->eval_sub($code)) |
|
72
|
0 |
17 |
if ref $@ |
|
95
|
1 |
257 |
ref $_[0] ? : |
|
|
4 |
258 |
$_[0] eq 'code' ? : |
|
96
|
5 |
252 |
unless ($sub) |
|
97
|
0 |
5 |
if ref $@ |
|
110
|
40 |
271 |
if scalar keys %options |
|
133
|
47 |
266 |
if ($src_type eq 'file') |
|
164
|
0 |
313 |
unless $self->can($src_method) |
|
171
|
0 |
263 |
ref $_[1] ? : |
|
178
|
0 |
47 |
unless open FILE, "$file" |
|
181
|
0 |
47 |
unless close FILE |
|
188
|
3 |
0 |
ref $handle eq 'GLOB' ? : |
|
200
|
0 |
299 |
unless my $lexer = $self->can('lex_token') |
|
204
|
0 |
1161 |
unless my(@parsed) = &$lexer($self) |
|
236
|
0 |
308 |
$m->{'output_sub'} ? : |
|
237
|
0 |
308 |
$m->{'output_sub'} ? : |
|
259
|
616 |
1603 |
ref $_ ? : |
|
276
|
40 |
956 |
unless ($token_streams{$type} or $token_map->{$type}) |
|
278
|
0 |
40 |
unless my $sub = $self->can($method) |
|
283
|
959 |
269 |
if (my $typedef = $token_map->{$type}) |
|
297
|
0 |
1228 |
unless my $ary = $token_streams{$type} |
|
304
|
0 |
3403 |
unless /^(\W+)(\w+)$/ |
|
305
|
1906 |
1497 |
if ($1 eq '$') { } |
|
|
905 |
592 |
elsif ($1 eq '@') { } |
|
|
296 |
296 |
elsif ($1 eq '!@') { } |
|
|
296 |
0 |
elsif ($1 eq '-@') { } |
|
325
|
22 |
0 |
@_ == 1 ? : |
|
|
22 |
0 |
if shift() |
|
335
|
0 |
0 |
scalar @_ ? : |
|
336
|
0 |
0 |
unless defined $_ |
|
338
|
0 |
0 |
/[^\w\d\-\:\.\']/ ? : |