| 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) |
|
94
|
1 |
257 |
ref $_[0] ? : |
|
|
4 |
258 |
$_[0] eq 'code' ? : |
|
|
5 |
252 |
unless my $sub = $_[0] eq 'code' ? do {
shift();
shift()
} : $self->compile(shift(), shift(), ref $_[0] ? %{shift();} : ()) |
|
106
|
40 |
271 |
if scalar keys %options |
|
129
|
47 |
266 |
if ($src_type eq 'file') |
|
160
|
0 |
313 |
unless $self->can($src_method) |
|
167
|
0 |
263 |
ref $_[1] ? : |
|
174
|
0 |
47 |
unless open FILE, "$file" |
|
177
|
0 |
47 |
unless close FILE |
|
184
|
3 |
0 |
ref $handle eq 'GLOB' ? : |
|
196
|
0 |
299 |
unless my $lexer = $self->can('lex_token') |
|
200
|
0 |
1161 |
unless my(@parsed) = &$lexer($self) |
|
232
|
0 |
308 |
$m->{'output_sub'} ? : |
|
233
|
0 |
308 |
$m->{'output_sub'} ? : |
|
255
|
616 |
1603 |
ref $_ ? : |
|
272
|
40 |
956 |
unless ($token_streams{$type} or $token_map->{$type}) |
|
274
|
0 |
40 |
unless my $sub = $self->can($method) |
|
279
|
959 |
269 |
if (my $typedef = $token_map->{$type}) |
|
293
|
0 |
1228 |
unless my $ary = $token_streams{$type} |
|
300
|
0 |
3403 |
unless /^(\W+)(\w+)$/ |
|
301
|
1906 |
1497 |
if ($1 eq '$') { } |
|
|
905 |
592 |
elsif ($1 eq '@') { } |
|
|
296 |
296 |
elsif ($1 eq '!@') { } |
|
|
296 |
0 |
elsif ($1 eq '-@') { } |
|
321
|
22 |
0 |
@_ == 1 ? : |
|
|
22 |
0 |
if shift() |
|
331
|
0 |
0 |
scalar @_ ? : |
|
332
|
0 |
0 |
unless defined $_ |
|
334
|
0 |
0 |
/[^\w\d\-\:\.\']/ ? : |