| line |
true |
false |
branch |
|
58
|
0 |
1 |
if -1 < index($_, '
|
|
68
|
25 |
32 |
if (ref $name eq 'ARRAY') |
|
76
|
50 |
7 |
@_ ? : |
|
85
|
0 |
0 |
if @_ |
|
86
|
0 |
0 |
if @_ |
|
92
|
2 |
1 |
if (ref $link_arg ne 'HASH') { } |
|
|
0 |
1 |
elsif (not exists $link_arg->{'rel'} or $link_arg->{'rel'} eq 'alternate') { } |
|
113
|
9 |
2 |
unless $dt =~ /[^0-9]/ |
|
120
|
3 |
0 |
'HASH' ne ref $arg ? : |
|
122
|
0 |
3 |
unless exists $prop->{'name'} |
|
136
|
0 |
9 |
if (ref $arg eq 'HASH') { } |
|
139
|
0 |
0 |
exists $arg->{'type'} ? : |
|
141
|
0 |
0 |
unless exists $arg->{'content'} |
|
145
|
0 |
0 |
if ($type eq 'xhtml') { } |
|
|
0 |
0 |
elsif ($type eq 'html' or $type eq 'text') { } |
|
148
|
0 |
0 |
if (not $content =~ /
|
|
160
|
0 |
0 |
if $name ne 'content' |
|
172
|
8 |
1 |
if ($type eq 'html' and not $content =~ /&/) |
|
177
|
1 |
8 |
$type ne 'text' ? : |
|
187
|
0 |
1 |
if 'HASH' eq ref $arg and exists $arg->{'rel'} and 'alternate' eq $arg->{'rel'} |
|
190
|
1 |
2 |
'HASH' eq ref $arg ? : |
|
191
|
0 |
1 |
unless exists $arg->{'href'} |
|
206
|
0 |
2 |
'HASH' eq ref $arg ? : |
|
207
|
0 |
0 |
unless exists $arg->{'term'} |
|
217
|
2 |
5 |
if (ref $arg eq 'HASH') { } |
|
|
4 |
1 |
elsif (defined $arg) { } |
|
218
|
0 |
2 |
unless exists $arg->{'name'} |
|
258
|
36 |
0 |
if (exists $permission{$elem}) { } |
|
266
|
2 |
34 |
if ($elem eq 'link' and defined(my $alt = permalink($arg))) |
|
267
|
2 |
0 |
unless $count{'alternate link'}++ |
|
270
|
13 |
23 |
if (exists $callback->{$elem}) |
|
272
|
11 |
25 |
unless (@$elements) |
|
276
|
0 |
11 |
if (not $count{'id'} and defined $permalink) |
|
280
|
3 |
8 |
unless ($count{'updated'}) |
|
291
|
0 |
8 |
if @missing |
|
292
|
0 |
8 |
if @toomany |
|
294
|
0 |
8 |
if @error |
|
306
|
2 |
5 |
if (my(@i) = grep({'-encoding' eq $_[$_];} grep({not $_ % 2;} 0 .. $#_))) |
|
307
|
0 |
2 |
if @i > 1 |
|
312
|
7 |
0 |
@_ ? : |
|
334
|
2 |
5 |
unless $have_generator |
|
346
|
1 |
0 |
$self->{'have_default_author'} ? : |
|
385
|
0 |
0 |
defined $handle ? : |