| line |
true |
false |
branch |
|
24
|
217 |
30 |
if ($_[0] =~ /^\-(\w+)$/) { } |
|
31
|
135 |
10 |
if (scalar @traits) { } |
|
32
|
0 |
135 |
unless $callee eq 'Text::MicroMason::Base' |
|
46
|
136 |
49 |
if (not ref $referent) { } |
|
71
|
14 |
278 |
unless $self->eval_sub($code) |
|
94
|
1 |
244 |
ref $_[0] ? : |
|
|
4 |
245 |
$_[0] eq 'code' ? : |
|
|
2 |
242 |
unless my $sub = $_[0] eq 'code' ? do {
shift();
shift()
} : $self->compile(shift(), shift(), ref $_[0] ? %{shift();} : ()) |
|
106
|
40 |
252 |
if scalar keys %options |
|
129
|
47 |
247 |
if ($src_type eq 'file') |
|
160
|
0 |
294 |
unless $self->can($src_method) |
|
167
|
0 |
244 |
ref $_[1] ? : |
|
174
|
0 |
47 |
unless open FILE, "$file" |
|
177
|
0 |
47 |
unless close FILE |
|
184
|
3 |
0 |
ref $handle eq 'GLOB' ? : |
|
196
|
0 |
280 |
unless my $lexer = $self->can('lex_token') |
|
200
|
0 |
1118 |
unless my(@parsed) = &$lexer($self) |
|
232
|
0 |
289 |
$m->{'output_sub'} ? : |
|
233
|
0 |
289 |
$m->{'output_sub'} ? : |
|
255
|
578 |
1508 |
ref $_ ? : |
|
272
|
39 |
914 |
unless ($token_streams{$type} or $token_map->{$type}) |
|
274
|
0 |
39 |
unless my $sub = $self->can($method) |
|
279
|
917 |
268 |
if (my $typedef = $token_map->{$type}) |
|
293
|
0 |
1185 |
unless my $ary = $token_streams{$type} |
|
300
|
0 |
3194 |
unless /^(\W+)(\w+)$/ |
|
301
|
1792 |
1402 |
if ($1 eq '$') { } |
|
|
848 |
554 |
elsif ($1 eq '@') { } |
|
|
277 |
277 |
elsif ($1 eq '!@') { } |
|
|
277 |
0 |
elsif ($1 eq '-@') { } |
|
321
|
16 |
0 |
@_ == 1 ? : |
|
|
16 |
0 |
if shift() |
|
331
|
0 |
0 |
scalar @_ ? : |
|
332
|
0 |
0 |
unless defined $_ |
|
334
|
0 |
0 |
/[^\w\d\-\:\.\']/ ? : |