our
$VERSION
=
'1.49'
;
sub
get_namespace {
my
$ns
=
$_
[1]->getNamespaces();
return
$ns
?
$ns
->getData() : () ;
}
sub
is_text_node {
$_
[1]->isa(
'XML::LibXML::Text'
)
&& !
$_
[1]->isa(
'XML::LibXML::Comment'
);
}
sub
get_attributes {
$_
[1]->attributes }
sub
get_text_content {
$_
[1]->textContent }
sub
get_child_nodes {
$_
[1]->childNodes }
sub
get_node_name {
$_
[1]->localname }
sub
is_element_node {
$_
[1]->isa(
'XML::LibXML::Element'
); }
sub
is_comment_node {
$_
[1]->isa(
'XML::LibXML::Comment'
); }
sub
is_pi_node {
$_
[1]->isa(
"XML::LibXML::PI"
); }
sub
is_nodelist {
$_
[1]->isa(
'XML::LibXML::NodeList'
); }
sub
get_attribute {
return
$_
[1]->isa(
'XML::LibXML::Namespace'
)
?
' xmlns:'
.
$_
[1]->getName() .
'="'
.
$_
[1]->value() .
'" '
:
$_
[1]->toString( 0, 1 )
;
}
sub
translate_node {
my
(
$self
,
$node
,
$params
) =
@_
;
$node
=
$node
->documentElement
if
$node
->isa(
'XML::LibXML::Document'
);
return
$self
->SUPER::translate_node(
$node
,
$params
);
}
1;