| line |
true |
false |
branch |
|
24
|
1 |
20 |
if @_ == 1
|
|
26
|
0 |
20 |
if @_ % 2
|
|
30
|
3 |
25 |
if ($k =~ s/^\+//) { }
|
|
|
1 |
24 |
elsif ($k =~ s/^-//) { }
|
|
32
|
2 |
1 |
unless ref $_{$k}
|
|
38
|
0 |
1 |
unless ref $_{$k}
|
|
55
|
0 |
134 |
unless $arg->{'-as'} ||= $arg->{'tag'}
|
|
63
|
1 |
82 |
if (my $defaults = $arg->{'classes'} || $arg->{'class'})
|
|
65
|
1 |
0 |
unless ref $_{'class'}
|
|
66
|
0 |
1 |
if (ref $defaults) { }
|
|
76
|
1 |
82 |
if $arg->{'groom'}
|
|
91
|
100 |
11 |
$indent ? :
|
|
93
|
105 |
6 |
ref $inner_sub eq 'CODE' ? :
|
|
105
|
74 |
37 |
if $Template::Caribou::TAG_INDENT_LEVEL // $bou->indent
|
|
111
|
91 |
20 |
if ($groom)
|
|
126
|
6 |
31 |
XXX ? :
|
|
136
|
44 |
67 |
if (length $inner) { }
|
|
150
|
0 |
112 |
unless @_ <= 1
|
|
|
0 |
112 |
unless @_ >= 1
|