XML, the Perl Way

Branch Coverage

File: blib/lib/XML/Twig/XPath.pm
Coverage: 83.3%

line % coverage branch
10 100 T F if (XML::Twig::_use($xpath_engine))
11 50 T F unless ($XPATH)
59 100 T F $_[1] == $_[0] ? :
83 100 T F unless (ref $value)
109 100 T F wantarray ? :
115 50 T F if (my $expanded = $elt->namespace($prefix)) { }
123 100 T F if (UNIVERSAL::isa($b, 'XML::Twig::XPath::Elt')) { }
100 T F elsif (UNIVERSAL::isa($b, 'XML::Twig::XPath::Attribute')) { }
100 T F elsif (UNIVERSAL::isa($b, 'XML::Twig::XPath')) { }
182 50 T F unless (defined $prefix)
183 50 T F if ($$att{'name'} =~ /^(.*):/) { }
187 50 T F if (my $expanded = $$att{'elt'}->namespace($prefix))
193 100 T F if (UNIVERSAL::isa($b, 'XML::Twig::XPath::Attribute')) { }
100 T F elsif (UNIVERSAL::isa($b, 'XML::Twig::XPath::Elt')) { }
100 T F elsif (UNIVERSAL::isa($b, 'XML::Twig::XPath')) { }