File Coverage

blib/lib/XML/XPath/Helper/Const.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	23	23	100.0

package XML::XPath::Helper::Const;

use 5.010;
use strict;
use warnings;

use Exporter 'import';

use XML::LibXML;

our $VERSION = '0.03';

our @EXPORT_OK = qw(XPATH_SIMPLE_LIST
                    XPATH_SIMPLE_TAGS
                    XPATH_NESTED_TAGS);

our %EXPORT_TAGS = (all => \@EXPORT_OK);

use constant
  {
   # The following is taken from:
   # https://stackoverflow.com/questions/75059177/is-it-possible-to-find-nodes-containing-a-simple-list-using-xpath-1-0/75061420#75061420
   XPATH_SIMPLE_LIST => XML::LibXML::XPathExpression->new(<<"EOT"),
    ./*[
         *[not(*)]
         and
         not(*[position()>1
         and
         name(.) != name(preceding-sibling::*[1])])
       ]
EOT
   XPATH_SIMPLE_TAGS => XML::LibXML::XPathExpression->new("*[count(*) = 0]"),
   XPATH_NESTED_TAGS => XML::LibXML::XPathExpression->new("*[count(*) > 0]"),
};



1; # End of XML::XPath::Helper::Const

__END__