| line |
true |
false |
branch |
|
117
|
0 |
0 |
unless (-r $$xdo{'document_root'} and -d $$xdo{'document_root'}) |
|
185
|
0 |
0 |
unless (UNIVERSAL::isa($def, 'HASH')) |
|
241
|
0 |
0 |
unless (hascontent($request_path)) |
|
271
|
0 |
0 |
if (ref $xdo) { } |
|
282
|
0 |
0 |
unless $top |
|
291
|
0 |
0 |
unless ($xdo->show_src($top)) |
|
321
|
0 |
0 |
unless defined $src_param |
|
325
|
0 |
0 |
unless $src |
|
331
|
0 |
0 |
if (defined $file_name) { } |
|
380
|
0 |
0 |
if ($xdo->xdo_significant_tag($token)) |
|
389
|
0 |
0 |
if $em |
|
423
|
0 |
0 |
unless (UNIVERSAL::isa($token, 'Web::XDO::Token::Tag') or UNIVERSAL::isa($token, 'Web::XDO::Token::EndTag')) |
|
431
|
0 |
0 |
if (my $def = $$xdo{'tags'}{$$token{'name'}}) |
|
432
|
0 |
0 |
if ($$def{'class'}) |
|
433
|
0 |
0 |
unless ($$def{'class'} eq 'Web::XDO::Token::Tag' or $$def{'class'} eq 'Web::XDO::Token::EndTag') |
|
511
|
0 |
0 |
if ($xdo and $$xdo{'cgi'}) { } |
|
557
|
0 |
0 |
unless ($url =~ s/\s*\<\s*xdo\-root\s*\>\s*//is) |
|
602
|
0 |
0 |
if ($$xdo{'tags'}{$tag_name} and $$xdo{'tags'}{$tag_name}{'class'}) { } |
|
705
|
0 |
0 |
if (my $caller = $opts{'caller'}) { } |
|
706
|
0 |
0 |
if (UNIVERSAL::isa($caller, 'Web::XDO::Page')) { } |
|
721
|
0 |
0 |
unless $page->set_paths($url_root, $url_rel_path) |
|
740
|
0 |
0 |
if (UNIVERSAL::isa($token, 'Web::XDO::Token::Tag')) |
|
741
|
0 |
0 |
if (UNIVERSAL::can($token, 'set_page_prop')) |
|
778
|
0 |
0 |
if ($$page{'caller'}) |
|
842
|
0 |
0 |
unless (ref $$page{'url_path'}) |
|
851
|
0 |
0 |
if ($$page{'url_path'} =~ /\.\./s) |
|
858
|
0 |
0 |
unless (-r $$page{'local_path'}) |
|
894
|
0 |
0 |
if ($$nested{$local_path}) |
|
907
|
0 |
0 |
if (ref $token) { } |
|
958
|
0 |
0 |
if ($raw =~ m[/\s*\>$]s) |
|
975
|
0 |
0 |
unless ref $def |
|
988
|
0 |
0 |
if ($self_ender) |
|
1094
|
0 |
0 |
if ($file_name eq $$page{'xdo'}{'directory_index'}) { } |
|
1128
|
0 |
0 |
if ($page->is_directory_index) { } |
|
1178
|
0 |
0 |
if ($opts{'path'} and defined($title = $$props{'path-title'})) { } |
|
|
0 |
0 |
elsif (defined($title = $$props{'title'})) { } |
|
1224
|
0 |
0 |
if ($$page{'top'}) { } |
|
|
0 |
0 |
elsif ($page->is_directory_index) { } |
|
1227
|
0 |
0 |
if ($ENV{'REQUEST_URI'} =~ m[/$]s) |
|
1238
|
0 |
0 |
if ($url_path eq $$xdo{'root'}) |
|
1244
|
0 |
0 |
unless ($url_path =~ s[[^/]+/$][]s) |
|
1256
|
0 |
0 |
unless $parent |
|
1294
|
0 |
0 |
if ($sanity-- <= 0) |
|
1299
|
0 |
0 |
if wantarray |
|
1402
|
0 |
0 |
if (defined $raw) |
|
1462
|
0 |
0 |
if (defined $$atts{'class'}) { } |
|
1466
|
0 |
0 |
unless (@classes) |
|
1538
|
0 |
0 |
if (defined $$atts{$att_name}) |
|
1578
|
0 |
0 |
if (UNIVERSAL::isa($next, 'Web::XDO::Token::EndTag')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($next, 'Web::XDO::Token::Tag')) { } |
|
1579
|
0 |
0 |
if ($$next{'name'} eq $$tag{'name'}) |
|
1580
|
0 |
0 |
if ($nested) { } |
|
1589
|
0 |
0 |
if ($$next{'name'} eq $$tag{'name'}) |
|
1599
|
0 |
0 |
if wantarray |
|
1633
|
0 |
0 |
if (-f $$caller{'local_path'}) |
|
1669
|
0 |
0 |
if (my $def = $$page{'xdo'}{'tags'}{$$tag{'name'}}) |
|
1670
|
0 |
0 |
if ($$def{'adjust_for_root'}) |
|
1751
|
0 |
0 |
if ($included) |
|
1807
|
0 |
0 |
unless (defined($name = $$atts{'name'})) |
|
1811
|
0 |
0 |
if (exists $$atts{'value'}) |
|
1885
|
0 |
0 |
unless (defined $$atts{'name'}) |
|
1890
|
0 |
0 |
if (defined $$props{$$atts{'name'}}) |
|
1998
|
0 |
0 |
unless $included |
|
2009
|
0 |
0 |
if (UNIVERSAL::isa($token, 'Web::XDO::Token::Tag::WrapperContent')) { } |
|
2145
|
0 |
0 |
unless $parent |
|
2148
|
0 |
0 |
if ($page->is_directory_index) { } |
|
2154
|
0 |
0 |
if ($$tag{'self_ender'}) { } |
|
2169
|
0 |
0 |
if (UNIVERSAL::isa($next, 'Web::XDO::Token::EndTag')) |
|
2173
|
0 |
0 |
if ($$next{'name'} eq $$tag{'name'}) |
|
2231
|
0 |
0 |
unless $top |
|
2240
|
0 |
0 |
if (defined $$atts{'separator'}) { } |
|
2250
|
0 |
0 |
if ($first_done) { } |
|
2278
|
0 |
0 |
if (@tokens) |
|
2339
|
0 |
0 |
unless defined $abs_href |
|
2343
|
0 |
0 |
if ($abs_href =~ /\.\./s) |
|
2347
|
0 |
0 |
if ($abs_href eq $top->url_path_sans_directory_index) { } |
|
2377
|
0 |
0 |
if (UNIVERSAL::isa($next, 'Web::XDO::Token::EndTag')) |
|
2378
|
0 |
0 |
if ($$next{'name'} eq $$tag{'name'}) |