← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:31 2013

Filename/usr/lib/perl5/XML/LibXML.pm
StatementsExecuted 13281 statements in 77.5ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
501112.1ms12.1msXML::LibXML::::_parse_string XML::LibXML::_parse_string (xsub)
61917411.0ms11.0msXML::LibXML::Node::::DESTROY XML::LibXML::Node::DESTROY (xsub)
1320219.33ms17.7msXML::LibXML::Node::::childNodes XML::LibXML::Node::childNodes
5755319.21ms9.21msXML::LibXML::Node::::localname XML::LibXML::Node::localname (xsub)
1295118.52ms14.7msXML::LibXML::Node::::attributes XML::LibXML::Node::attributes
1320118.39ms8.39msXML::LibXML::Node::::_childNodes XML::LibXML::Node::_childNodes (xsub)
3910218.08ms8.08msXML::LibXML::Node::::nodeType XML::LibXML::Node::nodeType (xsub)
2565117.12ms7.12msXML::LibXML::Node::::nodeValue XML::LibXML::Node::nodeValue (xsub)
1295116.20ms6.20msXML::LibXML::Node::::_attributes XML::LibXML::Node::_attributes (xsub)
3525216.10ms6.10msXML::LibXML::Node::::namespaceURI XML::LibXML::Node::namespaceURI (xsub)
2230115.31ms5.31msXML::LibXML::Attr::::value XML::LibXML::Attr::value (xsub)
3525214.70ms4.70msXML::LibXML::Node::::prefix XML::LibXML::Node::prefix (xsub)
2230113.28ms3.28msXML::LibXML::Attr::::name XML::LibXML::Attr::name (xsub)
1113.20ms6.11msXML::LibXML::::BEGIN@23 XML::LibXML::BEGIN@23
1295113.19ms3.19msXML::LibXML::Node::::nodeName XML::LibXML::Node::nodeName (xsub)
50222.51ms23.3msXML::LibXML::::parse_string XML::LibXML::parse_string
51212.27ms5.13msXML::LibXML::::_init_callbacks XML::LibXML::_init_callbacks
1295112.16ms2.16msXML::LibXML::Node::::getNamespaces XML::LibXML::Node::getNamespaces (xsub)
1111.70ms1.71msXML::LibXML::::_parse_file XML::LibXML::_parse_file (xsub)
1111.01ms1.35msXML::LibXML::_SAXParser::::BEGIN@1933 XML::LibXML::_SAXParser::BEGIN@1933
111991µs1.24msXML::LibXML::::BEGIN@25 XML::LibXML::BEGIN@25
5121941µs2.19msXML::LibXML::::_cleanup_callbacks XML::LibXML::_cleanup_callbacks
111934µs934µsXML::LibXML::::bootstrap XML::LibXML::bootstrap (xsub)
7732893µs1.21msXML::LibXML::InputCallback::::init_callbacks XML::LibXML::InputCallback::init_callbacks
5022830µs830µsXML::LibXML::::new XML::LibXML::new
7732787µs1.01msXML::LibXML::InputCallback::::cleanup_callbacks XML::LibXML::InputCallback::cleanup_callbacks
111771µs3.30msXML::LibXML::::BEGIN@24 XML::LibXML::BEGIN@24
7621672µs672µsXML::LibXML::::__parser_option XML::LibXML::__parser_option
5122657µs657µsXML::LibXML::InputCallback::::new XML::LibXML::InputCallback::new
5121599µs1.46msXML::LibXML::::_auto_expand XML::LibXML::_auto_expand
10221556µs556µsXML::LibXML::::match_callback XML::LibXML::match_callback
5111459µs863µsXML::LibXML::::expand_xinclude XML::LibXML::expand_xinclude
5021456µs723µsXML::LibXML::::recover XML::LibXML::recover
2511389µs1.11msXML::LibXML::::recover_silently XML::LibXML::recover_silently
5111366µs366µsXML::LibXML::InputCallback::::unregister_callbacks XML::LibXML::InputCallback::unregister_callbacks
5011355µs426µsXML::LibXML::Namespace::::nodeName XML::LibXML::Namespace::nodeName
15031348µs348µsXML::LibXML::Namespace::::href XML::LibXML::Namespace::href (xsub)
7711320µs320µsXML::LibXML::InputCallback::::lib_init_callbacks XML::LibXML::InputCallback::lib_init_callbacks (xsub)
25042319µs319µsXML::LibXML::Namespace::::localname XML::LibXML::Namespace::localname (xsub)
5111313µs313µsXML::LibXML::::read_callback XML::LibXML::read_callback
5111289µs289µsXML::LibXML::::open_callback XML::LibXML::open_callback
5111278µs278µsXML::LibXML::::close_callback XML::LibXML::close_callback
7711226µs226µsXML::LibXML::InputCallback::::lib_cleanup_callbacks XML::LibXML::InputCallback::lib_cleanup_callbacks (xsub)
2511211µs211µsXML::LibXML::Node::::ownerDocument XML::LibXML::Node::ownerDocument (xsub)
10031206µs206µsXML::LibXML::Namespace::::DESTROY XML::LibXML::Namespace::DESTROY (xsub)
886191µs3.38msXML::LibXML::::import XML::LibXML::import
5011172µs172µsXML::LibXML::Namespace::::name XML::LibXML::Namespace::name
11185µs1.47msXML::LibXML::::BEGIN@28 XML::LibXML::BEGIN@28
251177µs77µsXML::LibXML::Document::::getVersion XML::LibXML::Document::getVersion (xsub)
251174µs74µsXML::LibXML::Document::::encoding XML::LibXML::Document::encoding (xsub)
251168µs68µsXML::LibXML::Document::::externalSubset XML::LibXML::Document::externalSubset (xsub)
251154µs54µsXML::LibXML::Document::::version XML::LibXML::Document::version (xsub)
251153µs53µsXML::LibXML::Document::::getEncoding XML::LibXML::Document::getEncoding (xsub)
11153µs1.87msXML::LibXML::::parse_file XML::LibXML::parse_file
11150µs50µsXML::LibXML::::END XML::LibXML::END (xsub)
11149µs92µsXML::LibXML::::VERSION XML::LibXML::VERSION
11140µs40µsXML::LibXML::::LIBXML_RUNTIME_VERSION XML::LibXML::LIBXML_RUNTIME_VERSION (xsub)
32238µs38µsXML::LibXML::InputCallback::::_callback_match XML::LibXML::InputCallback::_callback_match
11131µs180µsXML::LibXML::::BEGIN@18 XML::LibXML::BEGIN@18
11130µs36µsXML::LibXML::::BEGIN@13 XML::LibXML::BEGIN@13
11128µs133µsXML::LibXML::InputCallback::::BEGIN@2077 XML::LibXML::InputCallback::BEGIN@2077
11127µs633µsXML::LibXML::::BEGIN@14 XML::LibXML::BEGIN@14
11124µs443µsXML::LibXML::::BEGIN@234 XML::LibXML::BEGIN@234
11124µs120µsXML::LibXML::::BEGIN@20 XML::LibXML::BEGIN@20
11118µs59µsXML::LibXML::::BEGIN@162 XML::LibXML::BEGIN@162
11118µs42µsXML::LibXML::::BEGIN@26 XML::LibXML::BEGIN@26
11117µs68µsXML::LibXML::::BEGIN@161 XML::LibXML::BEGIN@161
11117µs66µsXML::LibXML::Comment::::BEGIN@1716 XML::LibXML::Comment::BEGIN@1716
11117µs114µsXML::LibXML::::BEGIN@21 XML::LibXML::BEGIN@21
11117µs51µsXML::LibXML::::BEGIN@259 XML::LibXML::BEGIN@259
11116µs70µsXML::LibXML::CDATASection::::BEGIN@1723 XML::LibXML::CDATASection::BEGIN@1723
11114µs73µsXML::LibXML::::BEGIN@159 XML::LibXML::BEGIN@159
11113µs402µsXML::LibXML::NamedNodeMap::::BEGIN@1831 XML::LibXML::NamedNodeMap::BEGIN@1831
11113µs92µsXML::LibXML::PI::::BEGIN@1765 XML::LibXML::PI::BEGIN@1765
11113µs52µsXML::LibXML::Document::::BEGIN@1359 XML::LibXML::Document::BEGIN@1359
11113µs44µsXML::LibXML::::BEGIN@171 XML::LibXML::BEGIN@171
11112µs71µsXML::LibXML::Element::::BEGIN@1481 XML::LibXML::Element::BEGIN@1481
11112µs40µsXML::LibXML::Attr::::BEGIN@1732 XML::LibXML::Attr::BEGIN@1732
11112µs40µsXML::LibXML::Text::::BEGIN@1663 XML::LibXML::Text::BEGIN@1663
93111µs11µsXML::LibXML::::CORE:match XML::LibXML::CORE:match (opcode)
11111µs46µsXML::LibXML::::BEGIN@177 XML::LibXML::BEGIN@177
11111µs42µsXML::LibXML::DocumentFragment::::BEGIN@1455XML::LibXML::DocumentFragment::BEGIN@1455
11111µs11µsXML::LibXML::InputCallback::::BEGIN@2079 XML::LibXML::InputCallback::BEGIN@2079
11110µs52µsXML::LibXML::::BEGIN@164 XML::LibXML::BEGIN@164
11110µs72µsXML::LibXML::::BEGIN@35 XML::LibXML::BEGIN@35
11110µs34µsXML::LibXML::Dtd::::BEGIN@1754 XML::LibXML::Dtd::BEGIN@1754
11110µs10µsXML::LibXML::::LIBXML_VERSION XML::LibXML::LIBXML_VERSION (xsub)
11110µs42µsXML::LibXML::::BEGIN@169 XML::LibXML::BEGIN@169
11110µs35µsXML::LibXML::Element::::BEGIN@1478 XML::LibXML::Element::BEGIN@1478
11110µs76µsXML::LibXML::::BEGIN@176 XML::LibXML::BEGIN@176
11110µs43µsXML::LibXML::::BEGIN@172 XML::LibXML::BEGIN@172
1119µs41µsXML::LibXML::::BEGIN@166 XML::LibXML::BEGIN@166
1119µs42µsXML::LibXML::::BEGIN@160 XML::LibXML::BEGIN@160
1119µs66µsXML::LibXML::::BEGIN@163 XML::LibXML::BEGIN@163
1119µs44µsXML::LibXML::::BEGIN@175 XML::LibXML::BEGIN@175
1119µs42µsXML::LibXML::::BEGIN@168 XML::LibXML::BEGIN@168
1119µs69µsXML::LibXML::::BEGIN@167 XML::LibXML::BEGIN@167
1119µs41µsXML::LibXML::::BEGIN@165 XML::LibXML::BEGIN@165
1119µs65µsXML::LibXML::::BEGIN@174 XML::LibXML::BEGIN@174
1119µs40µsXML::LibXML::::BEGIN@173 XML::LibXML::BEGIN@173
1119µs40µsXML::LibXML::::BEGIN@170 XML::LibXML::BEGIN@170
1118µs457µsXML::LibXML::Element::::BEGIN@1480 XML::LibXML::Element::BEGIN@1480
1118µs39µsXML::LibXML::::BEGIN@178 XML::LibXML::BEGIN@178
1116µs6µsXML::LibXML::::threads_shared_enabled XML::LibXML::threads_shared_enabled
0000s0sXML::LibXML::Attr::::setNamespace XML::LibXML::Attr::setNamespace
0000s0sXML::LibXML::::CLONE XML::LibXML::CLONE
0000s0sXML::LibXML::::CLONE_SKIP XML::LibXML::CLONE_SKIP
0000s0sXML::LibXML::Document::::actualEncoding XML::LibXML::Document::actualEncoding
0000s0sXML::LibXML::Document::::insertPI XML::LibXML::Document::insertPI
0000s0sXML::LibXML::Document::::insertProcessingInstruction XML::LibXML::Document::insertProcessingInstruction
0000s0sXML::LibXML::Document::::process_xinclude XML::LibXML::Document::process_xinclude
0000s0sXML::LibXML::Document::::serialize XML::LibXML::Document::serialize
0000s0sXML::LibXML::Document::::setDocumentElement XML::LibXML::Document::setDocumentElement
0000s0sXML::LibXML::Document::::toString XML::LibXML::Document::toString
0000s0sXML::LibXML::DocumentFragment::::toStringXML::LibXML::DocumentFragment::toString
0000s0sXML::LibXML::Element::::appendWellBalancedChunk XML::LibXML::Element::appendWellBalancedChunk
0000s0sXML::LibXML::Element::::getAttribute XML::LibXML::Element::getAttribute
0000s0sXML::LibXML::Element::::getAttributeNS XML::LibXML::Element::getAttributeNS
0000s0sXML::LibXML::Element::::getChildrenByLocalName XML::LibXML::Element::getChildrenByLocalName
0000s0sXML::LibXML::Element::::getChildrenByTagName XML::LibXML::Element::getChildrenByTagName
0000s0sXML::LibXML::Element::::getChildrenByTagNameNS XML::LibXML::Element::getChildrenByTagNameNS
0000s0sXML::LibXML::Element::::getElementsByLocalName XML::LibXML::Element::getElementsByLocalName
0000s0sXML::LibXML::Element::::getElementsByTagName XML::LibXML::Element::getElementsByTagName
0000s0sXML::LibXML::Element::::getElementsByTagNameNS XML::LibXML::Element::getElementsByTagNameNS
0000s0sXML::LibXML::Element::::setAttribute XML::LibXML::Element::setAttribute
0000s0sXML::LibXML::Element::::setAttributeNS XML::LibXML::Element::setAttributeNS
0000s0sXML::LibXML::Element::::setNamespace XML::LibXML::Element::setNamespace
0000s0sXML::LibXML::InputCallback::::CLONE_SKIP XML::LibXML::InputCallback::CLONE_SKIP
0000s0sXML::LibXML::InputCallback::::_callback_close XML::LibXML::InputCallback::_callback_close
0000s0sXML::LibXML::InputCallback::::_callback_open XML::LibXML::InputCallback::_callback_open
0000s0sXML::LibXML::InputCallback::::_callback_read XML::LibXML::InputCallback::_callback_read
0000s0sXML::LibXML::InputCallback::::register_callbacks XML::LibXML::InputCallback::register_callbacks
0000s0sXML::LibXML::NamedNodeMap::::CLONE_SKIP XML::LibXML::NamedNodeMap::CLONE_SKIP
0000s0sXML::LibXML::NamedNodeMap::::getNamedItem XML::LibXML::NamedNodeMap::getNamedItem
0000s0sXML::LibXML::NamedNodeMap::::getNamedItemNS XML::LibXML::NamedNodeMap::getNamedItemNS
0000s0sXML::LibXML::NamedNodeMap::::item XML::LibXML::NamedNodeMap::item
0000s0sXML::LibXML::NamedNodeMap::::length XML::LibXML::NamedNodeMap::length
0000s0sXML::LibXML::NamedNodeMap::::new XML::LibXML::NamedNodeMap::new
0000s0sXML::LibXML::NamedNodeMap::::nodes XML::LibXML::NamedNodeMap::nodes
0000s0sXML::LibXML::NamedNodeMap::::removeNamedItem XML::LibXML::NamedNodeMap::removeNamedItem
0000s0sXML::LibXML::NamedNodeMap::::removeNamedItemNS XML::LibXML::NamedNodeMap::removeNamedItemNS
0000s0sXML::LibXML::NamedNodeMap::::setNamedItem XML::LibXML::NamedNodeMap::setNamedItem
0000s0sXML::LibXML::NamedNodeMap::::setNamedItemNS XML::LibXML::NamedNodeMap::setNamedItemNS
0000s0sXML::LibXML::Namespace::::CLONE_SKIP XML::LibXML::Namespace::CLONE_SKIP
0000s0sXML::LibXML::Namespace::::getName XML::LibXML::Namespace::getName
0000s0sXML::LibXML::Namespace::::getNamespaceURI XML::LibXML::Namespace::getNamespaceURI
0000s0sXML::LibXML::Namespace::::getNamespaces XML::LibXML::Namespace::getNamespaces
0000s0sXML::LibXML::Namespace::::getPrefix XML::LibXML::Namespace::getPrefix
0000s0sXML::LibXML::Namespace::::isEqualNode XML::LibXML::Namespace::isEqualNode
0000s0sXML::LibXML::Namespace::::isSameNode XML::LibXML::Namespace::isSameNode
0000s0sXML::LibXML::Namespace::::prefix XML::LibXML::Namespace::prefix
0000s0sXML::LibXML::Node::::CLONE_SKIP XML::LibXML::Node::CLONE_SKIP
0000s0sXML::LibXML::Node::::exists XML::LibXML::Node::exists
0000s0sXML::LibXML::Node::::find XML::LibXML::Node::find
0000s0sXML::LibXML::Node::::findbool XML::LibXML::Node::findbool
0000s0sXML::LibXML::Node::::findnodes XML::LibXML::Node::findnodes
0000s0sXML::LibXML::Node::::findvalue XML::LibXML::Node::findvalue
0000s0sXML::LibXML::Node::::getChildNodes XML::LibXML::Node::getChildNodes
0000s0sXML::LibXML::Node::::isSupported XML::LibXML::Node::isSupported
0000s0sXML::LibXML::Node::::nonBlankChildNodes XML::LibXML::Node::nonBlankChildNodes
0000s0sXML::LibXML::Node::::setOwnerDocument XML::LibXML::Node::setOwnerDocument
0000s0sXML::LibXML::Node::::toStringC14N XML::LibXML::Node::toStringC14N
0000s0sXML::LibXML::Node::::toStringEC14N XML::LibXML::Node::toStringEC14N
0000s0sXML::LibXML::PI::::setData XML::LibXML::PI::setData
0000s0sXML::LibXML::Pattern::::CLONE_SKIP XML::LibXML::Pattern::CLONE_SKIP
0000s0sXML::LibXML::Pattern::::new XML::LibXML::Pattern::new
0000s0sXML::LibXML::RegExp::::CLONE_SKIP XML::LibXML::RegExp::CLONE_SKIP
0000s0sXML::LibXML::RegExp::::new XML::LibXML::RegExp::new
0000s0sXML::LibXML::RelaxNG::::CLONE_SKIP XML::LibXML::RelaxNG::CLONE_SKIP
0000s0sXML::LibXML::RelaxNG::::new XML::LibXML::RelaxNG::new
0000s0sXML::LibXML::Schema::::CLONE_SKIP XML::LibXML::Schema::CLONE_SKIP
0000s0sXML::LibXML::Schema::::new XML::LibXML::Schema::new
0000s0sXML::LibXML::Text::::attributes XML::LibXML::Text::attributes
0000s0sXML::LibXML::Text::::deleteDataString XML::LibXML::Text::deleteDataString
0000s0sXML::LibXML::Text::::replaceDataRegEx XML::LibXML::Text::replaceDataRegEx
0000s0sXML::LibXML::Text::::replaceDataString XML::LibXML::Text::replaceDataString
0000s0sXML::LibXML::XPathExpression::::CLONE_SKIP XML::LibXML::XPathExpression::CLONE_SKIP
0000s0sXML::LibXML::_SAXParser::::CLONE_SKIP XML::LibXML::_SAXParser::CLONE_SKIP
0000s0sXML::LibXML::_SAXParser::::error XML::LibXML::_SAXParser::error
0000s0sXML::LibXML::_SAXParser::::fatal_error XML::LibXML::_SAXParser::fatal_error
0000s0sXML::LibXML::_SAXParser::::warning XML::LibXML::_SAXParser::warning
0000s0sXML::LibXML::::__proxy_registry XML::LibXML::__proxy_registry
0000s0sXML::LibXML::::__read XML::LibXML::__read
0000s0sXML::LibXML::::__write XML::LibXML::__write
0000s0sXML::LibXML::::_clone XML::LibXML::_clone
0000s0sXML::LibXML::::_html_options XML::LibXML::_html_options
0000s0sXML::LibXML::::_parser_options XML::LibXML::_parser_options
0000s0sXML::LibXML::::base_uri XML::LibXML::base_uri
0000s0sXML::LibXML::::callbacks XML::LibXML::callbacks
0000s0sXML::LibXML::::clean_namespaces XML::LibXML::clean_namespaces
0000s0sXML::LibXML::::complete_attributes XML::LibXML::complete_attributes
0000s0sXML::LibXML::::createDocument XML::LibXML::createDocument
0000s0sXML::LibXML::::expand_entities XML::LibXML::expand_entities
0000s0sXML::LibXML::::finish_push XML::LibXML::finish_push
0000s0sXML::LibXML::::gdome_dom XML::LibXML::gdome_dom
0000s0sXML::LibXML::::get_option XML::LibXML::get_option
0000s0sXML::LibXML::::init_push XML::LibXML::init_push
0000s0sXML::LibXML::::input_callbacks XML::LibXML::input_callbacks
0000s0sXML::LibXML::::keep_blanks XML::LibXML::keep_blanks
0000s0sXML::LibXML::::line_numbers XML::LibXML::line_numbers
0000s0sXML::LibXML::::load_ext_dtd XML::LibXML::load_ext_dtd
0000s0sXML::LibXML::::load_html XML::LibXML::load_html
0000s0sXML::LibXML::::load_xml XML::LibXML::load_xml
0000s0sXML::LibXML::::no_network XML::LibXML::no_network
0000s0sXML::LibXML::::option_exists XML::LibXML::option_exists
0000s0sXML::LibXML::::parse_balanced_chunk XML::LibXML::parse_balanced_chunk
0000s0sXML::LibXML::::parse_chunk XML::LibXML::parse_chunk
0000s0sXML::LibXML::::parse_fh XML::LibXML::parse_fh
0000s0sXML::LibXML::::parse_html_fh XML::LibXML::parse_html_fh
0000s0sXML::LibXML::::parse_html_file XML::LibXML::parse_html_file
0000s0sXML::LibXML::::parse_html_string XML::LibXML::parse_html_string
0000s0sXML::LibXML::::parse_xml_chunk XML::LibXML::parse_xml_chunk
0000s0sXML::LibXML::::pedantic_parser XML::LibXML::pedantic_parser
0000s0sXML::LibXML::::processXIncludes XML::LibXML::processXIncludes
0000s0sXML::LibXML::::process_xincludes XML::LibXML::process_xincludes
0000s0sXML::LibXML::::push XML::LibXML::push
0000s0sXML::LibXML::::set_handler XML::LibXML::set_handler
0000s0sXML::LibXML::::set_option XML::LibXML::set_option
0000s0sXML::LibXML::::set_options XML::LibXML::set_options
0000s0sXML::LibXML::::validation XML::LibXML::validation
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1# $Id: LibXML.pm 809 2009-10-04 21:17:41Z pajas $
2#
3#
4# This is free software, you may use it and distribute it under the same terms as
5# Perl itself.
6#
7# Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas
8#
9#
10
11package XML::LibXML;
12
13378µs243µs
# spent 36µs (30+7) within XML::LibXML::BEGIN@13 which was called: # once (30µs+7µs) by Authen::CAS::Client::BEGIN@12 at line 13
use strict;
# spent 36µs making 1 call to XML::LibXML::BEGIN@13 # spent 7µs making 1 call to strict::import
14119µs1606µs
# spent 633µs (27+606) within XML::LibXML::BEGIN@14 which was called: # once (27µs+606µs) by Authen::CAS::Client::BEGIN@12 at line 17
use vars qw($VERSION $ABI_VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS
# spent 606µs making 1 call to vars::import
15 $skipDTD $skipXMLDeclaration $setTagCompression
16 $MatchCB $ReadCB $OpenCB $CloseCB %PARSER_FLAGS
17271µs1633µs );
# spent 633µs making 1 call to XML::LibXML::BEGIN@14
18395µs2329µs
# spent 180µs (31+149) within XML::LibXML::BEGIN@18 which was called: # once (31µs+149µs) by Authen::CAS::Client::BEGIN@12 at line 18
use Carp;
# spent 180µs making 1 call to XML::LibXML::BEGIN@18 # spent 149µs making 1 call to Exporter::import
19
20365µs2217µs
# spent 120µs (24+97) within XML::LibXML::BEGIN@20 which was called: # once (24µs+97µs) by Authen::CAS::Client::BEGIN@12 at line 20
use constant XML_XMLNS_NS => 'http://www.w3.org/2000/xmlns/';
# spent 120µs making 1 call to XML::LibXML::BEGIN@20 # spent 97µs making 1 call to constant::import
21356µs2211µs
# spent 114µs (17+97) within XML::LibXML::BEGIN@21 which was called: # once (17µs+97µs) by Authen::CAS::Client::BEGIN@12 at line 21
use constant XML_XML_NS => 'http://www.w3.org/XML/1998/namespace';
# spent 114µs making 1 call to XML::LibXML::BEGIN@21 # spent 97µs making 1 call to constant::import
22
233190µs26.11ms
# spent 6.11ms (3.20+2.91) within XML::LibXML::BEGIN@23 which was called: # once (3.20ms+2.91ms) by Authen::CAS::Client::BEGIN@12 at line 23
use XML::LibXML::Error;
# spent 6.11ms making 1 call to XML::LibXML::BEGIN@23 # spent 4µs making 1 call to UNIVERSAL::import
243133µs23.30ms
# spent 3.30ms (771µs+2.53) within XML::LibXML::BEGIN@24 which was called: # once (771µs+2.53ms) by Authen::CAS::Client::BEGIN@12 at line 24
use XML::LibXML::NodeList;
# spent 3.30ms making 1 call to XML::LibXML::BEGIN@24 # spent 3µs making 1 call to UNIVERSAL::import
253127µs21.24ms
# spent 1.24ms (991µs+251µs) within XML::LibXML::BEGIN@25 which was called: # once (991µs+251µs) by Authen::CAS::Client::BEGIN@12 at line 25
use XML::LibXML::XPathContext;
# spent 1.24ms making 1 call to XML::LibXML::BEGIN@25 # spent 3µs making 1 call to UNIVERSAL::import
263106µs266µs
# spent 42µs (18+24) within XML::LibXML::BEGIN@26 which was called: # once (18µs+24µs) by Authen::CAS::Client::BEGIN@12 at line 26
use IO::Handle; # for FH reads called as methods
# spent 42µs making 1 call to XML::LibXML::BEGIN@26 # spent 24µs making 1 call to Exporter::import
27
28
# spent 1.47ms (85µs+1.38) within XML::LibXML::BEGIN@28 which was called: # once (85µs+1.38ms) by Authen::CAS::Client::BEGIN@12 at line 153
BEGIN {
291500ns$VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
301200ns$ABI_VERSION = 2;
311900nsrequire Exporter;
321700nsrequire DynaLoader;
33124µs@ISA = qw(DynaLoader Exporter);
34
353338µs2133µs
# spent 72µs (10+61) within XML::LibXML::BEGIN@35 which was called: # once (10µs+61µs) by Authen::CAS::Client::BEGIN@12 at line 35
use vars qw($__PROXY_NODE_REGISTRY $__threads_shared $__PROXY_NODE_REGISTRY_MUTEX $__loaded);
# spent 72µs making 1 call to XML::LibXML::BEGIN@35 # spent 61µs making 1 call to vars::import
36
37
# spent 92µs (49+44) within XML::LibXML::VERSION which was called: # once (49µs+44µs) by XML::LibXSLT::BEGIN@16 at line 16 of XML/LibXSLT.pm
sub VERSION {
3813µs my $class = shift;
3914µs my ($caller) = caller;
4011µs my $req_abi = $ABI_VERSION;
41124µs210µs if (UNIVERSAL::can($caller,'REQUIRE_XML_LIBXML_ABI_VERSION')) {
# spent 6µs making 1 call to UNIVERSAL::can # spent 3µs making 1 call to XML::LibXSLT::REQUIRE_XML_LIBXML_ABI_VERSION
42 $req_abi = $caller->REQUIRE_XML_LIBXML_ABI_VERSION();
43 } elsif ($caller eq 'XML::LibXSLT') {
44 # XML::LibXSLT without REQUIRE_XML_LIBXML_ABI_VERSION is an old and incompatible version
45 $req_abi = 1;
46 }
4711µs unless ($req_abi == $ABI_VERSION) {
48 my $ver = @_ ? ' '.$_[0] : '';
49 die ("This version of $caller requires XML::LibXML$ver (ABI $req_abi), which is incompatible with currently installed XML::LibXML $VERSION (ABI $ABI_VERSION). Please upgrade $caller, XML::LibXML, or both!");
50 }
51153µs134µs return $class->UNIVERSAL::VERSION(@_)
# spent 34µs making 1 call to UNIVERSAL::VERSION
52}
53
54#-------------------------------------------------------------------------#
55# export information #
56#-------------------------------------------------------------------------#
57110µs%EXPORT_TAGS = (
58 all => [qw(
59 XML_ELEMENT_NODE
60 XML_ATTRIBUTE_NODE
61 XML_TEXT_NODE
62 XML_CDATA_SECTION_NODE
63 XML_ENTITY_REF_NODE
64 XML_ENTITY_NODE
65 XML_PI_NODE
66 XML_COMMENT_NODE
67 XML_DOCUMENT_NODE
68 XML_DOCUMENT_TYPE_NODE
69 XML_DOCUMENT_FRAG_NODE
70 XML_NOTATION_NODE
71 XML_HTML_DOCUMENT_NODE
72 XML_DTD_NODE
73 XML_ELEMENT_DECL
74 XML_ATTRIBUTE_DECL
75 XML_ENTITY_DECL
76 XML_NAMESPACE_DECL
77 XML_XINCLUDE_END
78 XML_XINCLUDE_START
79 encodeToUTF8
80 decodeFromUTF8
81 XML_XMLNS_NS
82 XML_XML_NS
83 )],
84 libxml => [qw(
85 XML_ELEMENT_NODE
86 XML_ATTRIBUTE_NODE
87 XML_TEXT_NODE
88 XML_CDATA_SECTION_NODE
89 XML_ENTITY_REF_NODE
90 XML_ENTITY_NODE
91 XML_PI_NODE
92 XML_COMMENT_NODE
93 XML_DOCUMENT_NODE
94 XML_DOCUMENT_TYPE_NODE
95 XML_DOCUMENT_FRAG_NODE
96 XML_NOTATION_NODE
97 XML_HTML_DOCUMENT_NODE
98 XML_DTD_NODE
99 XML_ELEMENT_DECL
100 XML_ATTRIBUTE_DECL
101 XML_ENTITY_DECL
102 XML_NAMESPACE_DECL
103 XML_XINCLUDE_END
104 XML_XINCLUDE_START
105 )],
106 encoding => [qw(
107 encodeToUTF8
108 decodeFromUTF8
109 )],
110 ns => [qw(
111 XML_XMLNS_NS
112 XML_XML_NS
113 )],
114 );
115
116@EXPORT_OK = (
11719µs @{$EXPORT_TAGS{all}},
118 );
119
120@EXPORT = (
121112µs @{$EXPORT_TAGS{all}},
122 );
123
124#-------------------------------------------------------------------------#
125# initialization of the global variables #
126#-------------------------------------------------------------------------#
1271300ns$skipDTD = 0;
1281200ns$skipXMLDeclaration = 0;
1291200ns$setTagCompression = 0;
130
1311300ns$MatchCB = undef;
1321100ns$ReadCB = undef;
1331200ns$OpenCB = undef;
1341200ns$CloseCB = undef;
135
136# if ($threads::threads) {
137# our $__THREADS_TID = 0;
138# eval q{
139# use threads::shared;
140# our $__PROXY_NODE_REGISTRY_MUTEX :shared = 0;
141# };
142# die $@ if $@;
143# }
144#-------------------------------------------------------------------------#
145# bootstrapping #
146#-------------------------------------------------------------------------#
14717µs11.38msbootstrap XML::LibXML $VERSION;
# spent 1.38ms making 1 call to DynaLoader::bootstrap
14818µsundef &AUTOLOAD;
149
15012µs*encodeToUTF8 = \&XML::LibXML::Common::encodeToUTF8;
15115µs*decodeFromUTF8 = \&XML::LibXML::Common::decodeFromUTF8;
152
153139µs11.47ms} # BEGIN
# spent 1.47ms making 1 call to XML::LibXML::BEGIN@28
154
155
156#-------------------------------------------------------------------------#
157# libxml2 node names (see also XML::LibXML::Common #
158#-------------------------------------------------------------------------#
159338µs2132µs
# spent 73µs (14+59) within XML::LibXML::BEGIN@159 which was called: # once (14µs+59µs) by Authen::CAS::Client::BEGIN@12 at line 159
use constant XML_ELEMENT_NODE => 1;
# spent 73µs making 1 call to XML::LibXML::BEGIN@159 # spent 59µs making 1 call to constant::import
160350µs274µs
# spent 42µs (9+32) within XML::LibXML::BEGIN@160 which was called: # once (9µs+32µs) by Authen::CAS::Client::BEGIN@12 at line 160
use constant XML_ATTRIBUTE_NODE => 2;
# spent 42µs making 1 call to XML::LibXML::BEGIN@160 # spent 32µs making 1 call to constant::import
161361µs2119µs
# spent 68µs (17+51) within XML::LibXML::BEGIN@161 which was called: # once (17µs+51µs) by Authen::CAS::Client::BEGIN@12 at line 161
use constant XML_TEXT_NODE => 3;
# spent 68µs making 1 call to XML::LibXML::BEGIN@161 # spent 51µs making 1 call to constant::import
162336µs2100µs
# spent 59µs (18+41) within XML::LibXML::BEGIN@162 which was called: # once (18µs+41µs) by Authen::CAS::Client::BEGIN@12 at line 162
use constant XML_CDATA_SECTION_NODE => 4;
# spent 59µs making 1 call to XML::LibXML::BEGIN@162 # spent 41µs making 1 call to constant::import
163342µs2123µs
# spent 66µs (9+57) within XML::LibXML::BEGIN@163 which was called: # once (9µs+57µs) by Authen::CAS::Client::BEGIN@12 at line 163
use constant XML_ENTITY_REF_NODE => 5;
# spent 66µs making 1 call to XML::LibXML::BEGIN@163 # spent 57µs making 1 call to constant::import
164337µs293µs
# spent 52µs (10+41) within XML::LibXML::BEGIN@164 which was called: # once (10µs+41µs) by Authen::CAS::Client::BEGIN@12 at line 164
use constant XML_ENTITY_NODE => 6;
# spent 52µs making 1 call to XML::LibXML::BEGIN@164 # spent 41µs making 1 call to constant::import
165330µs272µs
# spent 41µs (9+32) within XML::LibXML::BEGIN@165 which was called: # once (9µs+32µs) by Authen::CAS::Client::BEGIN@12 at line 165
use constant XML_PI_NODE => 7;
# spent 41µs making 1 call to XML::LibXML::BEGIN@165 # spent 32µs making 1 call to constant::import
166329µs273µs
# spent 41µs (9+32) within XML::LibXML::BEGIN@166 which was called: # once (9µs+32µs) by Authen::CAS::Client::BEGIN@12 at line 166
use constant XML_COMMENT_NODE => 8;
# spent 41µs making 1 call to XML::LibXML::BEGIN@166 # spent 32µs making 1 call to constant::import
167333µs2129µs
# spent 69µs (9+60) within XML::LibXML::BEGIN@167 which was called: # once (9µs+60µs) by Authen::CAS::Client::BEGIN@12 at line 167
use constant XML_DOCUMENT_NODE => 9;
# spent 69µs making 1 call to XML::LibXML::BEGIN@167 # spent 60µs making 1 call to constant::import
168337µs274µs
# spent 42µs (9+33) within XML::LibXML::BEGIN@168 which was called: # once (9µs+33µs) by Authen::CAS::Client::BEGIN@12 at line 168
use constant XML_DOCUMENT_TYPE_NODE => 10;
# spent 42µs making 1 call to XML::LibXML::BEGIN@168 # spent 33µs making 1 call to constant::import
169334µs273µs
# spent 42µs (10+32) within XML::LibXML::BEGIN@169 which was called: # once (10µs+32µs) by Authen::CAS::Client::BEGIN@12 at line 169
use constant XML_DOCUMENT_FRAG_NODE => 11;
# spent 42µs making 1 call to XML::LibXML::BEGIN@169 # spent 32µs making 1 call to constant::import
170329µs272µs
# spent 40µs (9+32) within XML::LibXML::BEGIN@170 which was called: # once (9µs+32µs) by Authen::CAS::Client::BEGIN@12 at line 170
use constant XML_NOTATION_NODE => 12;
# spent 40µs making 1 call to XML::LibXML::BEGIN@170 # spent 32µs making 1 call to constant::import
171331µs275µs
# spent 44µs (13+31) within XML::LibXML::BEGIN@171 which was called: # once (13µs+31µs) by Authen::CAS::Client::BEGIN@12 at line 171
use constant XML_HTML_DOCUMENT_NODE => 13;
# spent 44µs making 1 call to XML::LibXML::BEGIN@171 # spent 31µs making 1 call to constant::import
172330µs275µs
# spent 43µs (10+33) within XML::LibXML::BEGIN@172 which was called: # once (10µs+33µs) by Authen::CAS::Client::BEGIN@12 at line 172
use constant XML_DTD_NODE => 14;
# spent 43µs making 1 call to XML::LibXML::BEGIN@172 # spent 33µs making 1 call to constant::import
173329µs271µs
# spent 40µs (9+31) within XML::LibXML::BEGIN@173 which was called: # once (9µs+31µs) by Authen::CAS::Client::BEGIN@12 at line 173
use constant XML_ELEMENT_DECL => 15;
# spent 40µs making 1 call to XML::LibXML::BEGIN@173 # spent 31µs making 1 call to constant::import
174335µs2122µs
# spent 65µs (9+57) within XML::LibXML::BEGIN@174 which was called: # once (9µs+57µs) by Authen::CAS::Client::BEGIN@12 at line 174
use constant XML_ATTRIBUTE_DECL => 16;
# spent 65µs making 1 call to XML::LibXML::BEGIN@174 # spent 57µs making 1 call to constant::import
175330µs278µs
# spent 44µs (9+34) within XML::LibXML::BEGIN@175 which was called: # once (9µs+34µs) by Authen::CAS::Client::BEGIN@12 at line 175
use constant XML_ENTITY_DECL => 17;
# spent 44µs making 1 call to XML::LibXML::BEGIN@175 # spent 34µs making 1 call to constant::import
176348µs2143µs
# spent 76µs (10+67) within XML::LibXML::BEGIN@176 which was called: # once (10µs+67µs) by Authen::CAS::Client::BEGIN@12 at line 176
use constant XML_NAMESPACE_DECL => 18;
# spent 76µs making 1 call to XML::LibXML::BEGIN@176 # spent 67µs making 1 call to constant::import
177330µs281µs
# spent 46µs (11+35) within XML::LibXML::BEGIN@177 which was called: # once (11µs+35µs) by Authen::CAS::Client::BEGIN@12 at line 177
use constant XML_XINCLUDE_START => 19;
# spent 46µs making 1 call to XML::LibXML::BEGIN@177 # spent 35µs making 1 call to constant::import
1783332µs270µs
# spent 39µs (8+31) within XML::LibXML::BEGIN@178 which was called: # once (8µs+31µs) by Authen::CAS::Client::BEGIN@12 at line 178
use constant XML_XINCLUDE_END => 20;
# spent 39µs making 1 call to XML::LibXML::BEGIN@178 # spent 31µs making 1 call to constant::import
179
180
181
# spent 3.38ms (191µs+3.19) within XML::LibXML::import which was called 8 times, avg 423µs/call: # once (30µs+525µs) by XML::LibXML::SAX::Parser::BEGIN@15 at line 15 of XML/LibXML/SAX/Parser.pm # once (28µs+445µs) by C4::XSLT::BEGIN@34 at line 34 of /usr/share/koha/lib/C4/XSLT.pm # once (36µs+413µs) by XML::LibXML::Element::BEGIN@1480 at line 1480 # once (17µs+431µs) by XML::LibXSLT::StylesheetWrapper::BEGIN@312 at line 312 of XML/LibXSLT.pm # once (18µs+370µs) by XML::LibXML::NamedNodeMap::BEGIN@1831 at line 1831 # once (15µs+365µs) by XML::LibXSLT::BEGIN@16 at line 16 of XML/LibXSLT.pm # once (19µs+336µs) by Authen::CAS::Client::BEGIN@12 at line 12 of Authen/CAS/Client.pm # once (26µs+305µs) by XML::LibXML::Common::BEGIN@28 at line 28 of XML/LibXML/Common.pm
sub import {
182814µs my $package=shift;
183843µs43µs if (grep /^:threads_shared$/, @_) {
# spent 3µs making 4 calls to XML::LibXML::CORE:match, avg 775ns/call
184 require threads;
185 if (!defined($__threads_shared)) {
186 if (INIT_THREAD_SUPPORT()) {
187 eval q{
188 use threads::shared;
189 share($__PROXY_NODE_REGISTRY_MUTEX);
190 };
191 if ($@) { # something went wrong
192 DISABLE_THREAD_SUPPORT(); # leave the library in a usable state
193 die $@; # and die
194 }
195 $__PROXY_NODE_REGISTRY = XML::LibXML::HashTable->new();
196 $__threads_shared=1;
197 } else {
198 croak("XML::LibXML or Perl compiled without ithread support!");
199 }
200 } elsif (!$__threads_shared) {
201 croak("XML::LibXML already loaded without thread support. Too late to enable thread support!");
202 }
203 } elsif (defined $XML::LibXML::__loaded) {
20466µs $__threads_shared=0 if not defined $__threads_shared;
205 }
2068109µs12288µs __PACKAGE__->export_to_level(1,$package,grep !/^:threads(_shared)?$/,@_);
# spent 286µs making 8 calls to Exporter::export_to_level, avg 36µs/call # spent 2µs making 4 calls to XML::LibXML::CORE:match, avg 450ns/call
207}
208
209
# spent 6µs within XML::LibXML::threads_shared_enabled which was called: # once (6µs+0s) by XML::LibXSLT::BEGIN@23 at line 42 of XML/LibXSLT.pm
sub threads_shared_enabled {
210111µs return $__threads_shared ? 1 : 0;
211}
212
213# if ($threads::threads) {
214# our $__PROXY_NODE_REGISTRY = XML::LibXML::HashTable->new();
215# }
216
217#-------------------------------------------------------------------------#
218# test exact version (up to patch-level) #
219#-------------------------------------------------------------------------#
220{
221271µs247µs my ($runtime_version) = LIBXML_RUNTIME_VERSION() =~ /^(\d+)/;
# spent 40µs making 1 call to XML::LibXML::LIBXML_RUNTIME_VERSION # spent 6µs making 1 call to XML::LibXML::CORE:match
222122µs110µs if ( $runtime_version < LIBXML_VERSION ) {
# spent 10µs making 1 call to XML::LibXML::LIBXML_VERSION
223 warn "Warning: XML::LibXML compiled against libxml2 ".LIBXML_VERSION.
224 ", but runtime libxml2 is older $runtime_version\n";
225 }
226}
227
228
229#-------------------------------------------------------------------------#
230# parser flags #
231#-------------------------------------------------------------------------#
232
233# Copied directly from http://xmlsoft.org/html/libxml-parser.html#xmlParserOption
234
# spent 443µs (24+419) within XML::LibXML::BEGIN@234 which was called: # once (24µs+419µs) by Authen::CAS::Client::BEGIN@12 at line 257
use constant {
235118µs1419µs XML_PARSE_RECOVER => 1, # recover on errors
# spent 419µs making 1 call to constant::import
236 XML_PARSE_NOENT => 2, # substitute entities
237 XML_PARSE_DTDLOAD => 4, # load the external subset
238 XML_PARSE_DTDATTR => 8, # default DTD attributes
239 XML_PARSE_DTDVALID => 16, # validate with the DTD
240 XML_PARSE_NOERROR => 32, # suppress error reports
241 XML_PARSE_NOWARNING => 64, # suppress warning reports
242 XML_PARSE_PEDANTIC => 128, # pedantic error reporting
243 XML_PARSE_NOBLANKS => 256, # remove blank nodes
244 XML_PARSE_SAX1 => 512, # use the SAX1 interface internally
245 XML_PARSE_XINCLUDE => 1024, # Implement XInclude substitition
246 XML_PARSE_NONET => 2048, # Forbid network access
247 XML_PARSE_NODICT => 4096, # Do not reuse the context dictionnary
248 XML_PARSE_NSCLEAN => 8192, # remove redundant namespaces declarations
249 XML_PARSE_NOCDATA => 16384, # merge CDATA as text nodes
250 XML_PARSE_NOXINCNODE => 32768, # do not generate XINCLUDE START/END nodes
251 XML_PARSE_COMPACT => 65536, # compact small text nodes; no modification of the tree allowed afterwards
252 # (will possibly crash if you try to modify the tree)
253 XML_PARSE_OLD10 => 131072, # parse using XML-1.0 before update 5
254 XML_PARSE_NOBASEFIX => 262144, # do not fixup XINCLUDE xml#base uris
255 XML_PARSE_HUGE => 524288, # relax any hardcoded limit from the parser
256 XML_PARSE_OLDSAX => 1048576, # parse using SAX2 interface from before 2.7.0
257245µs1443µs};
# spent 443µs making 1 call to XML::LibXML::BEGIN@234
258
25935.33ms286µs
# spent 51µs (17+35) within XML::LibXML::BEGIN@259 which was called: # once (17µs+35µs) by Authen::CAS::Client::BEGIN@12 at line 259
use constant XML_LIBXML_PARSE_DEFAULTS => ( XML_PARSE_NODICT | XML_PARSE_HUGE | XML_PARSE_DTDLOAD | XML_PARSE_NOENT );
# spent 51µs making 1 call to XML::LibXML::BEGIN@259 # spent 35µs making 1 call to constant::import
260
261# this hash is made global so that applications can add names for new
262# libxml2 parser flags as temporary workaround
263
264117µs%PARSER_FLAGS = (
265 recover => XML_PARSE_RECOVER,
266 expand_entities => XML_PARSE_NOENT,
267 load_ext_dtd => XML_PARSE_DTDLOAD,
268 complete_attributes => XML_PARSE_DTDATTR,
269 validation => XML_PARSE_DTDVALID,
270 suppress_errors => XML_PARSE_NOERROR,
271 suppress_warnings => XML_PARSE_NOWARNING,
272 pedantic_parser => XML_PARSE_PEDANTIC,
273 no_blanks => XML_PARSE_NOBLANKS,
274 expand_xinclude => XML_PARSE_XINCLUDE,
275 xinclude => XML_PARSE_XINCLUDE,
276 no_network => XML_PARSE_NONET,
277 clean_namespaces => XML_PARSE_NSCLEAN,
278 no_cdata => XML_PARSE_NOCDATA,
279 no_xinclude_nodes => XML_PARSE_NOXINCNODE,
280 old10 => XML_PARSE_OLD10,
281 no_base_fix => XML_PARSE_NOBASEFIX,
282 huge => XML_PARSE_HUGE,
283 oldsax => XML_PARSE_OLDSAX,
284);
285
28616µsmy %OUR_FLAGS = (
287 recover => 'XML_LIBXML_RECOVER',
288 line_numbers => 'XML_LIBXML_LINENUMBERS',
289 URI => 'XML_LIBXML_BASE_URI',
290 base_uri => 'XML_LIBXML_BASE_URI',
291 gdome => 'XML_LIBXML_GDOME',
292 ext_ent_handler => 'ext_ent_handler',
293);
294
295sub _parser_options {
296 my ($self, $opts) = @_;
297
298 # currently dictionaries break XML::LibXML memory management
299
300 my $flags;
301
302 if (ref($self)) {
303 $flags = ($self->{XML_LIBXML_PARSER_OPTIONS}||0);
304 } else {
305 $flags = XML_LIBXML_PARSE_DEFAULTS; # safety precaution
306 }
307
308 my ($key, $value);
309 while (($key,$value) = each %$opts) {
310 my $f = $PARSER_FLAGS{ $key };
311 if (defined $f) {
312 if ($value) {
313 $flags |= $f
314 } else {
315 $flags &= ~$f;
316 }
317 } elsif ($key eq 'set_parser_flags') { # this can be used to pass flags XML::LibXML does not yet know about
318 $flags |= $value;
319 } elsif ($key eq 'unset_parser_flags') {
320 $flags &= ~$value;
321 }
322
323 }
324 return $flags;
325}
326
32718µsmy %compatibility_flags = (
328 XML_LIBXML_VALIDATION => 'validation',
329 XML_LIBXML_EXPAND_ENTITIES => 'expand_entities',
330 XML_LIBXML_PEDANTIC => 'pedantic_parser',
331 XML_LIBXML_NONET => 'no_network',
332 XML_LIBXML_EXT_DTD => 'load_ext_dtd',
333 XML_LIBXML_COMPLETE_ATTR => 'complete_attributes',
334 XML_LIBXML_EXPAND_XINCLUDE => 'expand_xinclude',
335 XML_LIBXML_NSCLEAN => 'clean_namespaces',
336 XML_LIBXML_KEEP_BLANKS => 'keep_blanks',
337 XML_LIBXML_LINENUMBERS => 'line_numbers',
338);
339
340#-------------------------------------------------------------------------#
341# parser constructor #
342#-------------------------------------------------------------------------#
343
344
345
# spent 830µs within XML::LibXML::new which was called 50 times, avg 17µs/call: # 25 times (498µs+0s) by C4::XSLT::XSLTParse4Display at line 224 of /usr/share/koha/lib/C4/XSLT.pm, avg 20µs/call # 25 times (332µs+0s) by XML::LibXML::SAX::Parser::_parse_string at line 41 of XML/LibXML/SAX/Parser.pm, avg 13µs/call
sub new {
3465054µs my $class = shift;
34750266µs my $self = bless {
348 }, $class;
3495064µs if (@_) {
350 my %opts = ();
351 if (ref($_[0]) eq 'HASH') {
352 %opts = %{$_[0]};
353 } else {
354 # old interface
355 my %args = @_;
356 %opts=(
357 map {
358 (($compatibility_flags{ $_ }||$_) => $args{ $_ })
359 } keys %args
360 );
361 }
362 # parser flags
363 $opts{no_blanks} = !$opts{keep_blanks} if exists($opts{keep_blanks}) and !exists($opts{no_blanks});
364
365 for (keys %OUR_FLAGS) {
366 $self->{$OUR_FLAGS{$_}} = delete $opts{$_};
367 }
368 $class->load_catalog(delete($opts{catalog})) if $opts{catalog};
369
370 $self->{XML_LIBXML_PARSER_OPTIONS} = XML::LibXML->_parser_options(\%opts);
371
372 # store remaining unknown options directly in $self
373 for (keys %opts) {
374 $self->{$_}=$opts{$_} unless exists $PARSER_FLAGS{$_};
375 }
376 } else {
37750151µs $self->{XML_LIBXML_PARSER_OPTIONS} = XML_LIBXML_PARSE_DEFAULTS;
378 }
3795045µs if ( defined $self->{Handler} ) {
380 $self->set_handler( $self->{Handler} );
381 }
382
3835068µs $self->{_State_} = 0;
38450246µs return $self;
385}
386
387sub _clone {
388 my ($self)=@_;
389 my $new = ref($self)->new({
390 recover => $self->{XML_LIBXML_RECOVER},
391 line_nubers => $self->{XML_LIBXML_LINENUMBERS},
392 base_uri => $self->{XML_LIBXML_BASE_URI},
393 gdome => $self->{XML_LIBXML_GDOME},
394 set_parser_flags => $self->{XML_LIBXML_PARSER_OPTIONS},
395 });
396 return $new;
397}
398
399#-------------------------------------------------------------------------#
400# Threads support methods #
401#-------------------------------------------------------------------------#
402
403# threads doc says CLONE's API may change in future, which would break
404# an XS method prototype
405sub CLONE {
406 if ($XML::LibXML::__threads_shared) {
407 XML::LibXML::_CLONE( $_[0] );
408 }
409}
410
411sub CLONE_SKIP {
412 return $XML::LibXML::__threads_shared ? 0 : 1;
413}
414
415sub __proxy_registry {
416 my ($class)=caller;
417 die "This version of $class uses API of XML::LibXML 1.66 which is not compatible with XML::LibXML $VERSION. Please upgrade $class!\n";
418}
419
420#-------------------------------------------------------------------------#
421# DOM Level 2 document constructor #
422#-------------------------------------------------------------------------#
423
424sub createDocument {
425 my $self = shift;
426 if (!@_ or $_[0] =~ m/^\d\.\d$/) {
427 # for backward compatibility
428 return XML::LibXML::Document->new(@_);
429 }
430 else {
431 # DOM API: createDocument(namespaceURI, qualifiedName, doctype?)
432 my $doc = XML::LibXML::Document-> new;
433 my $el = $doc->createElementNS(shift, shift);
434 $doc->setDocumentElement($el);
435 $doc->setExternalSubset(shift) if @_;
436 return $doc;
437 }
438}
439
440#-------------------------------------------------------------------------#
441# callback functions #
442#-------------------------------------------------------------------------#
443
444sub input_callbacks {
445 my $self = shift;
446 my $icbclass = shift;
447
448 if ( defined $icbclass ) {
449 $self->{XML_LIBXML_CALLBACK_STACK} = $icbclass;
450 }
451 return $self->{XML_LIBXML_CALLBACK_STACK};
452}
453
454
# spent 556µs within XML::LibXML::match_callback which was called 102 times, avg 5µs/call: # 51 times (357µs+0s) by XML::LibXML::_init_callbacks at line 726, avg 7µs/call # 51 times (199µs+0s) by XML::LibXML::_cleanup_callbacks at line 740, avg 4µs/call
sub match_callback {
45510271µs my $self = shift;
45610298µs if ( ref $self ) {
45710256µs if ( scalar @_ ) {
458 $self->{XML_LIBXML_MATCH_CB} = shift;
459 $self->{XML_LIBXML_CALLBACK_STACK} = undef;
460 }
461102425µs return $self->{XML_LIBXML_MATCH_CB};
462 }
463 else {
464 $MatchCB = shift if scalar @_;
465 return $MatchCB;
466 }
467}
468
469
# spent 313µs within XML::LibXML::read_callback which was called 51 times, avg 6µs/call: # 51 times (313µs+0s) by XML::LibXML::_init_callbacks at line 728, avg 6µs/call
sub read_callback {
4705137µs my $self = shift;
4715150µs if ( ref $self ) {
4725135µs if ( scalar @_ ) {
473 $self->{XML_LIBXML_READ_CB} = shift;
474 $self->{XML_LIBXML_CALLBACK_STACK} = undef;
475 }
47651220µs return $self->{XML_LIBXML_READ_CB};
477 }
478 else {
479 $ReadCB = shift if scalar @_;
480 return $ReadCB;
481 }
482}
483
484
# spent 278µs within XML::LibXML::close_callback which was called 51 times, avg 5µs/call: # 51 times (278µs+0s) by XML::LibXML::_init_callbacks at line 729, avg 5µs/call
sub close_callback {
4855136µs my $self = shift;
4865156µs if ( ref $self ) {
4875127µs if ( scalar @_ ) {
488 $self->{XML_LIBXML_CLOSE_CB} = shift;
489 $self->{XML_LIBXML_CALLBACK_STACK} = undef;
490 }
49151243µs return $self->{XML_LIBXML_CLOSE_CB};
492 }
493 else {
494 $CloseCB = shift if scalar @_;
495 return $CloseCB;
496 }
497}
498
499
# spent 289µs within XML::LibXML::open_callback which was called 51 times, avg 6µs/call: # 51 times (289µs+0s) by XML::LibXML::_init_callbacks at line 727, avg 6µs/call
sub open_callback {
5005140µs my $self = shift;
5015149µs if ( ref $self ) {
5025130µs if ( scalar @_ ) {
503 $self->{XML_LIBXML_OPEN_CB} = shift;
504 $self->{XML_LIBXML_CALLBACK_STACK} = undef;
505 }
50651209µs return $self->{XML_LIBXML_OPEN_CB};
507 }
508 else {
509 $OpenCB = shift if scalar @_;
510 return $OpenCB;
511 }
512}
513
514sub callbacks {
515 my $self = shift;
516 if ( ref $self ) {
517 if (@_) {
518 my ($match, $open, $read, $close) = @_;
519 @{$self}{qw(XML_LIBXML_MATCH_CB XML_LIBXML_OPEN_CB XML_LIBXML_READ_CB XML_LIBXML_CLOSE_CB)} = ($match, $open, $read, $close);
520 $self->{XML_LIBXML_CALLBACK_STACK} = undef;
521 }
522 else {
523 return @{$self}{qw(XML_LIBXML_MATCH_CB XML_LIBXML_OPEN_CB XML_LIBXML_READ_CB XML_LIBXML_CLOSE_CB)};
524 }
525 }
526 else {
527 if (@_) {
528 ( $MatchCB, $OpenCB, $ReadCB, $CloseCB ) = @_;
529 }
530 else {
531 return ( $MatchCB, $OpenCB, $ReadCB, $CloseCB );
532 }
533 }
534}
535
536#-------------------------------------------------------------------------#
537# internal member variable manipulation #
538#-------------------------------------------------------------------------#
539
# spent 672µs within XML::LibXML::__parser_option which was called 76 times, avg 9µs/call: # 51 times (404µs+0s) by XML::LibXML::expand_xinclude at line 657, avg 8µs/call # 25 times (267µs+0s) by XML::LibXML::recover at line 599, avg 11µs/call
sub __parser_option {
54076133µs my ($self, $opt) = @_;
54176103µs if (@_>2) {
5422519µs if ($_[2]) {
543 $self->{XML_LIBXML_PARSER_OPTIONS} |= $opt;
544 return 1;
545 } else {
5462567µs $self->{XML_LIBXML_PARSER_OPTIONS} &= ~$opt;
54725144µs return 0;
548 }
549 } else {
55051360µs return ($self->{XML_LIBXML_PARSER_OPTIONS} & $opt) ? 1 : 0;
551 }
552}
553
554sub option_exists {
555 my ($self,$name)=@_;
556 return ($PARSER_FLAGS{$name} || $OUR_FLAGS{$name}) ? 1 : 0;
557}
558sub get_option {
559 my ($self,$name)=@_;
560 my $flag = $OUR_FLAGS{$name};
561 return $self->{$flag} if $flag;
562 $flag = $PARSER_FLAGS{$name};
563 return $self->__parser_option($flag) if $flag;
564 warn "XML::LibXML::get_option: unknown parser option $name\n";
565 return undef;
566}
567sub set_option {
568 my ($self,$name,$value)=@_;
569 my $flag = $OUR_FLAGS{$name};
570 return ($self->{$flag}=$value) if $flag;
571 $flag = $PARSER_FLAGS{$name};
572 return $self->__parser_option($flag,$value) if $flag;
573 warn "XML::LibXML::get_option: unknown parser option $name\n";
574 return undef;
575}
576sub set_options {
577 my $self=shift;
578 my $opts;
579 if (@_==1 and ref($_[0]) eq 'HASH') {
580 $opts = $_[0];
581 } elsif (@_ % 2 == 0) {
582 $opts={@_};
583 } else {
584 croak("Odd number of elements passed to set_options");
585 }
586 $self->set_option($_=>$opts->{$_}) foreach keys %$opts;
587 return;
588}
589
590sub validation {
591 my $self = shift;
592 return $self->__parser_option(XML_PARSE_DTDVALID,@_);
593}
594
595
# spent 723µs (456+267) within XML::LibXML::recover which was called 50 times, avg 14µs/call: # 25 times (359µs+267µs) by XML::LibXML::recover_silently at line 607, avg 25µs/call # 25 times (97µs+0s) by XML::LibXML::recover_silently at line 608, avg 4µs/call
sub recover {
5965033µs my $self = shift;
5975041µs if (scalar @_) {
5982560µs $self->{XML_LIBXML_RECOVER} = $_[0];
59925125µs25267µs $self->__parser_option(XML_PARSE_RECOVER,@_);
# spent 267µs making 25 calls to XML::LibXML::__parser_option, avg 11µs/call
600 }
60150223µs return $self->{XML_LIBXML_RECOVER};
602}
603
604
# spent 1.11ms (389µs+723µs) within XML::LibXML::recover_silently which was called 25 times, avg 44µs/call: # 25 times (389µs+723µs) by C4::XSLT::XSLTParse4Display at line 226 of /usr/share/koha/lib/C4/XSLT.pm, avg 44µs/call
sub recover_silently {
6052520µs my $self = shift;
6062518µs my $arg = shift;
60725117µs25626µs (($arg == 1) ? $self->recover(2) : $self->recover($arg)) if defined($arg);
# spent 626µs making 25 calls to XML::LibXML::recover, avg 25µs/call
60825178µs2597µs return (($self->recover()||0) == 2) ? 1 : 0;
# spent 97µs making 25 calls to XML::LibXML::recover, avg 4µs/call
609}
610
611sub expand_entities {
612 my $self = shift;
613 if (scalar(@_) and $_[0]) {
614 return $self->__parser_option(XML_PARSE_NOENT | XML_PARSE_DTDLOAD,1);
615 }
616 return $self->__parser_option(XML_PARSE_NOENT,@_);
617}
618
619sub keep_blanks {
620 my $self = shift;
621 my @args; # we have to negate the argument and return negated value, since
622 # the actual flag is no_blanks
623 if (scalar @_) {
624 @args=($_[0] ? 0 : 1);
625 }
626 return $self->__parser_option(XML_PARSE_NOBLANKS,@args) ? 0 : 1;
627}
628
629sub pedantic_parser {
630 my $self = shift;
631 return $self->__parser_option(XML_PARSE_PEDANTIC,@_);
632}
633
634sub line_numbers {
635 my $self = shift;
636 $self->{XML_LIBXML_LINENUMBERS} = shift if scalar @_;
637 return $self->{XML_LIBXML_LINENUMBERS};
638}
639
640sub no_network {
641 my $self = shift;
642 return $self->__parser_option(XML_PARSE_NONET,@_);
643}
644
645sub load_ext_dtd {
646 my $self = shift;
647 return $self->__parser_option(XML_PARSE_DTDLOAD,@_);
648}
649
650sub complete_attributes {
651 my $self = shift;
652 return $self->__parser_option(XML_PARSE_DTDATTR,@_);
653}
654
655
# spent 863µs (459+404) within XML::LibXML::expand_xinclude which was called 51 times, avg 17µs/call: # 51 times (459µs+404µs) by XML::LibXML::_auto_expand at line 704, avg 17µs/call
sub expand_xinclude {
6565151µs my $self = shift;
65751325µs51404µs return $self->__parser_option(XML_PARSE_XINCLUDE,@_);
# spent 404µs making 51 calls to XML::LibXML::__parser_option, avg 8µs/call
658}
659
660sub base_uri {
661 my $self = shift;
662 $self->{XML_LIBXML_BASE_URI} = shift if scalar @_;
663 return $self->{XML_LIBXML_BASE_URI};
664}
665
666sub gdome_dom {
667 my $self = shift;
668 $self->{XML_LIBXML_GDOME} = shift if scalar @_;
669 return $self->{XML_LIBXML_GDOME};
670}
671
672sub clean_namespaces {
673 my $self = shift;
674 return $self->__parser_option(XML_PARSE_NSCLEAN,@_);
675}
676
677#-------------------------------------------------------------------------#
678# set the optional SAX(2) handler #
679#-------------------------------------------------------------------------#
680sub set_handler {
681 my $self = shift;
682 if ( defined $_[0] ) {
683 $self->{HANDLER} = $_[0];
684
685 $self->{SAX_ELSTACK} = [];
686 $self->{SAX} = {State => 0};
687 }
688 else {
689 # undef SAX handling
690 $self->{SAX_ELSTACK} = [];
691 delete $self->{HANDLER};
692 delete $self->{SAX};
693 }
694}
695
696#-------------------------------------------------------------------------#
697# helper functions #
698#-------------------------------------------------------------------------#
699
# spent 1.46ms (599µs+863µs) within XML::LibXML::_auto_expand which was called 51 times, avg 29µs/call: # 50 times (593µs+852µs) by XML::LibXML::parse_string at line 856, avg 29µs/call # once (7µs+12µs) by XML::LibXML::parse_file at line 932
sub _auto_expand {
70051141µs my ( $self, $result, $uri ) = @_;
701
7025136µs $result->setBaseURI( $uri ) if defined $uri;
703
70451226µs51863µs if ( $self->expand_xinclude ) {
# spent 863µs making 51 calls to XML::LibXML::expand_xinclude, avg 17µs/call
705 $self->{_State_} = 1;
706 eval { $self->processXIncludes($result); };
707 my $err = $@;
708 $self->{_State_} = 0;
709 if ($err) {
710 $self->_cleanup_callbacks();
711 $result = undef;
712 croak $err;
713 }
714 }
71551177µs return $result;
716}
717
718
# spent 5.13ms (2.27+2.85) within XML::LibXML::_init_callbacks which was called 51 times, avg 101µs/call: # 50 times (2.25ms+2.82ms) by XML::LibXML::parse_string at line 831, avg 101µs/call # once (27µs+32µs) by XML::LibXML::parse_file at line 909
sub _init_callbacks {
7195138µs my $self = shift;
7205168µs my $icb = $self->{XML_LIBXML_CALLBACK_STACK};
7215149µs unless ( defined $icb ) {
72250498µs50652µs $self->{XML_LIBXML_CALLBACK_STACK} = XML::LibXML::InputCallback->new();
# spent 652µs making 50 calls to XML::LibXML::InputCallback::new, avg 13µs/call
7235051µs $icb = $self->{XML_LIBXML_CALLBACK_STACK};
724 }
725
72651238µs51357µs my $mcb = $self->match_callback();
# spent 357µs making 51 calls to XML::LibXML::match_callback, avg 7µs/call
72751225µs51289µs my $ocb = $self->open_callback();
# spent 289µs making 51 calls to XML::LibXML::open_callback, avg 6µs/call
72851215µs51313µs my $rcb = $self->read_callback();
# spent 313µs making 51 calls to XML::LibXML::read_callback, avg 6µs/call
72951197µs51278µs my $ccb = $self->close_callback();
# spent 278µs making 51 calls to XML::LibXML::close_callback, avg 5µs/call
730
7315146µs if ( defined $mcb and defined $ocb and defined $rcb and defined $ccb ) {
732 $icb->register_callbacks( [$mcb, $ocb, $rcb, $ccb] );
733 }
73451384µs51965µs $icb->init_callbacks();
# spent 965µs making 51 calls to XML::LibXML::InputCallback::init_callbacks, avg 19µs/call
735}
736
737
# spent 2.19ms (941µs+1.25) within XML::LibXML::_cleanup_callbacks which was called 51 times, avg 43µs/call: # 50 times (929µs+1.23ms) by XML::LibXML::parse_string at line 858, avg 43µs/call # once (11µs+16µs) by XML::LibXML::parse_file at line 934
sub _cleanup_callbacks {
7385156µs my $self = shift;
73951245µs51681µs $self->{XML_LIBXML_CALLBACK_STACK}->cleanup_callbacks();
# spent 681µs making 51 calls to XML::LibXML::InputCallback::cleanup_callbacks, avg 13µs/call
74051140µs51199µs my $mcb = $self->match_callback();
# spent 199µs making 51 calls to XML::LibXML::match_callback, avg 4µs/call
74151367µs51366µs $self->{XML_LIBXML_CALLBACK_STACK}->unregister_callbacks( [$mcb] );
# spent 366µs making 51 calls to XML::LibXML::InputCallback::unregister_callbacks, avg 7µs/call
742}
743
744sub __read {
745 read($_[0], $_[1], $_[2]);
746}
747
748sub __write {
749 if ( ref( $_[0] ) ) {
750 $_[0]->write( $_[1], $_[2] );
751 }
752 else {
753 $_[0]->write( $_[1] );
754 }
755}
756
757sub load_xml {
758 my ($class_or_self) = shift;
759 my %args = map { ref($_) eq 'HASH' ? (%$_) : $_ } @_;
760 my $URI = delete($args{URI});
761 $URI = "$URI" if defined $URI; # stringify in case it is an URI object
762 my $parser;
763 if (ref($class_or_self)) {
764 $parser = $class_or_self->_clone();
765 $parser->{XML_LIBXML_PARSER_OPTIONS} = $parser->_parser_options(\%args);
766 } else {
767 $parser = $class_or_self->new(\%args);
768 }
769 my $dom;
770 if ( defined $args{location} ) {
771 $dom = $parser->parse_file( "$args{location}" );
772 }
773 elsif ( defined $args{string} ) {
774 $dom = $parser->parse_string( $args{string}, $URI );
775 }
776 elsif ( defined $args{IO} ) {
777 $dom = $parser->parse_fh( $args{IO}, $URI );
778 }
779 else {
780 croak("XML::LibXML->load: specify location, string, or IO");
781 }
782 return $dom;
783}
784
785sub load_html {
786 my ($class_or_self) = shift;
787 my %args = map { ref($_) eq 'HASH' ? (%$_) : $_ } @_;
788 my $URI = delete($args{URI});
789 $URI = "$URI" if defined $URI; # stringify in case it is an URI object
790 my $parser;
791 if (ref($class_or_self)) {
792 $parser = $class_or_self->_clone();
793 } else {
794 $parser = $class_or_self->new();
795 }
796 my $dom;
797 if ( defined $args{location} ) {
798 $dom = $parser->parse_html_file( "$args{location}", \%args );
799 }
800 elsif ( defined $args{string} ) {
801 $dom = $parser->parse_html_string( $args{string}, \%args );
802 }
803 elsif ( defined $args{IO} ) {
804 $dom = $parser->parse_html_fh( $args{IO}, \%args );
805 }
806 else {
807 croak("XML::LibXML->load: specify location, string, or IO");
808 }
809 return $dom;
810}
811
812#-------------------------------------------------------------------------#
813# parsing functions #
814#-------------------------------------------------------------------------#
815# all parsing functions handle normal as SAX parsing at the same time.
816# note that SAX parsing is handled incomplete! use XML::LibXML::SAX for
817# complete parsing sequences
818#-------------------------------------------------------------------------#
819
# spent 23.3ms (2.51+20.8) within XML::LibXML::parse_string which was called 50 times, avg 466µs/call: # 25 times (1.32ms+11.3ms) by C4::XSLT::XSLTParse4Display at line 227 of /usr/share/koha/lib/C4/XSLT.pm, avg 506µs/call # 25 times (1.19ms+9.44ms) by XML::LibXML::SAX::Parser::_parse_string at line 42 of XML/LibXML/SAX/Parser.pm, avg 425µs/call
sub parse_string {
8205038µs my $self = shift;
8215064µs croak("parse_string is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
8225061µs croak("parse already in progress") if $self->{_State_};
823
82450218µs unless ( defined $_[0] and length $_[0] ) {
825 croak("Empty String");
826 }
827
8285046µs $self->{_State_} = 1;
8295026µs my $result;
830
83150245µs505.07ms $self->_init_callbacks();
# spent 5.07ms making 50 calls to XML::LibXML::_init_callbacks, avg 101µs/call
832
83350113µs if ( defined $self->{SAX} ) {
834 my $string = shift;
835 $self->{SAX_ELSTACK} = [];
836 eval { $result = $self->_parse_sax_string($string); };
837 my $err = $@;
838 $self->{_State_} = 0;
839 if ($err) {
840 chomp $err unless ref $err;
841 $self->_cleanup_callbacks();
842 croak $err;
843 }
844 }
845 else {
84610012.8ms5012.1ms eval { $result = $self->_parse_string( @_ ); };
# spent 12.1ms making 50 calls to XML::LibXML::_parse_string, avg 242µs/call
847
8485050µs my $err = $@;
8495078µs $self->{_State_} = 0;
8505027µs if ($err) {
851 chomp $err unless ref $err;
852 $self->_cleanup_callbacks();
853 croak $err;
854 }
855
85650416µs501.44ms $result = $self->_auto_expand( $result, $self->{XML_LIBXML_BASE_URI} );
# spent 1.44ms making 50 calls to XML::LibXML::_auto_expand, avg 29µs/call
857 }
85850236µs502.16ms $self->_cleanup_callbacks();
# spent 2.16ms making 50 calls to XML::LibXML::_cleanup_callbacks, avg 43µs/call
859
86050202µs return $result;
861}
862
863sub parse_fh {
864 my $self = shift;
865 croak("parse_fh is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
866 croak("parse already in progress") if $self->{_State_};
867 $self->{_State_} = 1;
868 my $result;
869
870 $self->_init_callbacks();
871
872 if ( defined $self->{SAX} ) {
873 $self->{SAX_ELSTACK} = [];
874 eval { $self->_parse_sax_fh( @_ ); };
875 my $err = $@;
876 $self->{_State_} = 0;
877 if ($err) {
878 chomp $err unless ref $err;
879 $self->_cleanup_callbacks();
880 croak $err;
881 }
882 }
883 else {
884 eval { $result = $self->_parse_fh( @_ ); };
885 my $err = $@;
886 $self->{_State_} = 0;
887 if ($err) {
888 chomp $err unless ref $err;
889 $self->_cleanup_callbacks();
890 croak $err;
891 }
892
893 $result = $self->_auto_expand( $result, $self->{XML_LIBXML_BASE_URI} );
894 }
895
896 $self->_cleanup_callbacks();
897
898 return $result;
899}
900
901
# spent 1.87ms (53µs+1.82) within XML::LibXML::parse_file which was called: # once (53µs+1.82ms) by C4::XSLT::XSLTParse4Display at line 236 of /usr/share/koha/lib/C4/XSLT.pm
sub parse_file {
90212µs my $self = shift;
90311µs croak("parse_file is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
90412µs croak("parse already in progress") if $self->{_State_};
905
9061900ns $self->{_State_} = 1;
9071400ns my $result;
908
90913µs159µs $self->_init_callbacks();
# spent 59µs making 1 call to XML::LibXML::_init_callbacks
910
91112µs if ( defined $self->{SAX} ) {
912 $self->{SAX_ELSTACK} = [];
913 eval { $self->_parse_sax_file( @_ ); };
914 my $err = $@;
915 $self->{_State_} = 0;
916 if ($err) {
917 chomp $err unless ref $err;
918 $self->_cleanup_callbacks();
919 croak $err;
920 }
921 }
922 else {
92321.72ms21.73ms eval { $result = $self->_parse_file(@_); };
# spent 1.71ms making 1 call to XML::LibXML::_parse_file # spent 12µs making 1 call to XML::LibXML::InputCallback::_callback_match
92411µs my $err = $@;
92512µs $self->{_State_} = 0;
9261700ns if ($err) {
927 chomp $err unless ref $err;
928 $self->_cleanup_callbacks();
929 croak $err;
930 }
931
93215µs118µs $result = $self->_auto_expand( $result );
# spent 18µs making 1 call to XML::LibXML::_auto_expand
933 }
93412µs128µs $self->_cleanup_callbacks();
# spent 28µs making 1 call to XML::LibXML::_cleanup_callbacks
935
93615µs return $result;
937}
938
939sub parse_xml_chunk {
940 my $self = shift;
941 # max 2 parameter:
942 # 1: the chunk
943 # 2: the encoding of the string
944 croak("parse_xml_chunk is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
945 croak("parse already in progress") if $self->{_State_}; my $result;
946
947 unless ( defined $_[0] and length $_[0] ) {
948 croak("Empty String");
949 }
950
951 $self->{_State_} = 1;
952
953 $self->_init_callbacks();
954
955 if ( defined $self->{SAX} ) {
956 eval {
957 $self->_parse_sax_xml_chunk( @_ );
958
959 # this is required for XML::GenericChunk.
960 # in normal case is_filter is not defined, an thus the parsing
961 # will be terminated. in case of a SAX filter the parsing is not
962 # finished at that state. therefore we must not reset the parsing
963 unless ( $self->{IS_FILTER} ) {
964 $result = $self->{HANDLER}->end_document();
965 }
966 };
967 }
968 else {
969 eval { $result = $self->_parse_xml_chunk( @_ ); };
970 }
971
972 $self->_cleanup_callbacks();
973
974 my $err = $@;
975 $self->{_State_} = 0;
976 if ($err) {
977 chomp $err unless ref $err;
978 croak $err;
979 }
980
981 return $result;
982}
983
984sub parse_balanced_chunk {
985 my $self = shift;
986 $self->_init_callbacks();
987 my $rv;
988 eval {
989 $rv = $self->parse_xml_chunk( @_ );
990 };
991 my $err = $@;
992 $self->_cleanup_callbacks();
993 if ( $err ) {
994 chomp $err unless ref $err;
995 croak $err;
996 }
997 return $rv
998}
999
1000# java style
1001sub processXIncludes {
1002 my $self = shift;
1003 my $doc = shift;
1004 my $opts = shift;
1005 my $options = $self->_parser_options($opts);
1006 if ( $self->{_State_} != 1 ) {
1007 $self->_init_callbacks();
1008 }
1009 my $rv;
1010 eval {
1011 $rv = $self->_processXIncludes($doc || " ", $options);
1012 };
1013 my $err = $@;
1014 if ( $self->{_State_} != 1 ) {
1015 $self->_cleanup_callbacks();
1016 }
1017
1018 if ( $err ) {
1019 chomp $err unless ref $err;
1020 croak $err;
1021 }
1022 return $rv;
1023}
1024
1025# perl style
1026sub process_xincludes {
1027 my $self = shift;
1028 my $doc = shift;
1029 my $opts = shift;
1030 my $options = $self->_parser_options($opts);
1031
1032 my $rv;
1033 $self->_init_callbacks();
1034 eval {
1035 $rv = $self->_processXIncludes($doc || " ", $options);
1036 };
1037 my $err = $@;
1038 $self->_cleanup_callbacks();
1039 if ( $err ) {
1040 chomp $err unless ref $err;
1041 croak $@;
1042 }
1043 return $rv;
1044}
1045
1046#-------------------------------------------------------------------------#
1047# HTML parsing functions #
1048#-------------------------------------------------------------------------#
1049
1050sub _html_options {
1051 my ($self,$opts)=@_;
1052 $opts = {} unless ref $opts;
1053 # return (undef,undef) unless ref $opts;
1054 my $flags = 0;
1055 $flags |= 1 if exists $opts->{recover} ? $opts->{recover} : $self->recover;
1056 $flags |= 32 if $opts->{suppress_errors};
1057 $flags |= 64 if $opts->{suppress_warnings};
1058 $flags |= 128 if exists $opts->{pedantic_parser} ? $opts->{pedantic_parser} : $self->pedantic_parser;
1059 $flags |= 256 if exists $opts->{no_blanks} ? $opts->{no_blanks} : !$self->keep_blanks;
1060 $flags |= 2048 if exists $opts->{no_network} ? $opts->{no_network} : !$self->no_network;
1061 $flags |= 16384 if $opts->{no_cdata};
1062 $flags |= 65536 if $opts->{compact}; # compact small text nodes; no modification
1063 # of the tree allowed afterwards
1064 # (WILL possibly CRASH IF YOU try to MODIFY THE TREE)
1065 $flags |= 524288 if $opts->{huge}; # relax any hardcoded limit from the parser
1066 $flags |= 1048576 if $opts->{oldsax}; # parse using SAX2 interface from before 2.7.0
1067
1068 return ($opts->{URI},$opts->{encoding},$flags);
1069}
1070
1071sub parse_html_string {
1072 my ($self,$str,$opts) = @_;
1073 croak("parse_html_string is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
1074 croak("parse already in progress") if $self->{_State_};
1075
1076 unless ( defined $str and length $str ) {
1077 croak("Empty String");
1078 }
1079 $self->{_State_} = 1;
1080 my $result;
1081
1082 $self->_init_callbacks();
1083 eval {
1084 $result = $self->_parse_html_string( $str,
1085 $self->_html_options($opts)
1086 );
1087 };
1088 my $err = $@;
1089 $self->{_State_} = 0;
1090 if ($err) {
1091 chomp $err unless ref $err;
1092 $self->_cleanup_callbacks();
1093 croak $err;
1094 }
1095
1096 $self->_cleanup_callbacks();
1097
1098 return $result;
1099}
1100
1101sub parse_html_file {
1102 my ($self,$file,$opts) = @_;
1103 croak("parse_html_file is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
1104 croak("parse already in progress") if $self->{_State_};
1105 $self->{_State_} = 1;
1106 my $result;
1107
1108 $self->_init_callbacks();
1109 eval { $result = $self->_parse_html_file($file,
1110 $self->_html_options($opts)
1111 ); };
1112 my $err = $@;
1113 $self->{_State_} = 0;
1114 if ($err) {
1115 chomp $err unless ref $err;
1116 $self->_cleanup_callbacks();
1117 croak $err;
1118 }
1119
1120 $self->_cleanup_callbacks();
1121
1122 return $result;
1123}
1124
1125sub parse_html_fh {
1126 my ($self,$fh,$opts) = @_;
1127 croak("parse_html_fh is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
1128 croak("parse already in progress") if $self->{_State_};
1129 $self->{_State_} = 1;
1130
1131 my $result;
1132 $self->_init_callbacks();
1133 eval { $result = $self->_parse_html_fh( $fh,
1134 $self->_html_options($opts)
1135 ); };
1136 my $err = $@;
1137 $self->{_State_} = 0;
1138 if ($err) {
1139 chomp $err unless ref $err;
1140 $self->_cleanup_callbacks();
1141 croak $err;
1142 }
1143 $self->_cleanup_callbacks();
1144
1145 return $result;
1146}
1147
1148#-------------------------------------------------------------------------#
1149# push parser interface #
1150#-------------------------------------------------------------------------#
1151sub init_push {
1152 my $self = shift;
1153
1154 if ( defined $self->{CONTEXT} ) {
1155 delete $self->{CONTEXT};
1156 }
1157
1158 if ( defined $self->{SAX} ) {
1159 $self->{CONTEXT} = $self->_start_push(1);
1160 }
1161 else {
1162 $self->{CONTEXT} = $self->_start_push(0);
1163 }
1164}
1165
1166sub push {
1167 my $self = shift;
1168
1169 $self->_init_callbacks();
1170
1171 if ( not defined $self->{CONTEXT} ) {
1172 $self->init_push();
1173 }
1174
1175 eval {
1176 foreach ( @_ ) {
1177 $self->_push( $self->{CONTEXT}, $_ );
1178 }
1179 };
1180 my $err = $@;
1181 $self->_cleanup_callbacks();
1182 if ( $err ) {
1183 chomp $err unless ref $err;
1184 croak $err;
1185 }
1186}
1187
1188# this function should be promoted!
1189# the reason is because libxml2 uses xmlParseChunk() for this purpose!
1190sub parse_chunk {
1191 my $self = shift;
1192 my $chunk = shift;
1193 my $terminate = shift;
1194
1195 if ( not defined $self->{CONTEXT} ) {
1196 $self->init_push();
1197 }
1198
1199 if ( defined $chunk and length $chunk ) {
1200 $self->_push( $self->{CONTEXT}, $chunk );
1201 }
1202
1203 if ( $terminate ) {
1204 return $self->finish_push();
1205 }
1206}
1207
1208
1209sub finish_push {
1210 my $self = shift;
1211 my $restore = shift || 0;
1212 return undef unless defined $self->{CONTEXT};
1213
1214 my $retval;
1215
1216 if ( defined $self->{SAX} ) {
1217 eval {
1218 $self->_end_sax_push( $self->{CONTEXT} );
1219 $retval = $self->{HANDLER}->end_document( {} );
1220 };
1221 }
1222 else {
1223 eval { $retval = $self->_end_push( $self->{CONTEXT}, $restore ); };
1224 }
1225 my $err = $@;
1226 delete $self->{CONTEXT};
1227 if ( $err ) {
1228 chomp $err unless ref $err;
1229 croak( $err );
1230 }
1231 return $retval;
1232}
1233
12341300ns1;
1235
1236#-------------------------------------------------------------------------#
1237# XML::LibXML::Node Interface #
1238#-------------------------------------------------------------------------#
1239package XML::LibXML::Node;
1240
1241sub CLONE_SKIP {
1242 return $XML::LibXML::__threads_shared ? 0 : 1;
1243}
1244
1245sub isSupported {
1246 my $self = shift;
1247 my $feature = shift;
1248 return $self->can($feature) ? 1 : 0;
1249}
1250
1251sub getChildNodes { my $self = shift; return $self->childNodes(); }
1252
1253
# spent 17.7ms (9.33+8.39) within XML::LibXML::Node::childNodes which was called 1320 times, avg 13µs/call: # 1295 times (9.10ms+8.23ms) by XML::LibXML::SAX::Parser::process_element at line 243 of XML/LibXML/SAX/Parser.pm, avg 13µs/call # 25 times (228µs+161µs) by XML::LibXML::SAX::Parser::process_node at line 102 of XML/LibXML/SAX/Parser.pm, avg 16µs/call
sub childNodes {
12541320661µs my $self = shift;
1255132013.5ms13208.39ms my @children = $self->_childNodes(0);
# spent 8.39ms making 1320 calls to XML::LibXML::Node::_childNodes, avg 6µs/call
125613204.32ms return wantarray ? @children : XML::LibXML::NodeList->new_from_ref(\@children , 1);
1257}
1258
1259sub nonBlankChildNodes {
1260 my $self = shift;
1261 my @children = $self->_childNodes(1);
1262 return wantarray ? @children : XML::LibXML::NodeList->new_from_ref(\@children , 1);
1263}
1264
1265
# spent 14.7ms (8.52+6.20) within XML::LibXML::Node::attributes which was called 1295 times, avg 11µs/call: # 1295 times (8.52ms+6.20ms) by XML::LibXML::SAX::Parser::process_element at line 166 of XML/LibXML/SAX/Parser.pm, avg 11µs/call
sub attributes {
12661295745µs my $self = shift;
1267129510.9ms12956.20ms my @attr = $self->_attributes();
# spent 6.20ms making 1295 calls to XML::LibXML::Node::_attributes, avg 5µs/call
126812953.95ms return wantarray ? @attr : XML::LibXML::NamedNodeMap->new( @attr );
1269}
1270
1271
1272sub findnodes {
1273 my ($node, $xpath) = @_;
1274 my @nodes = $node->_findnodes($xpath);
1275 if (wantarray) {
1276 return @nodes;
1277 }
1278 else {
1279 return XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1280 }
1281}
1282
1283sub exists {
1284 my ($node, $xpath) = @_;
1285 my (undef, $value) = $node->_find($xpath,1);
1286 return $value;
1287}
1288
1289sub findvalue {
1290 my ($node, $xpath) = @_;
1291 my $res;
1292 $res = $node->find($xpath);
1293 return $res->to_literal->value;
1294}
1295
1296sub findbool {
1297 my ($node, $xpath) = @_;
1298 my ($type, @params) = $node->_find($xpath,1);
1299 if ($type) {
1300 return $type->new(@params);
1301 }
1302 return undef;
1303}
1304
1305sub find {
1306 my ($node, $xpath) = @_;
1307 my ($type, @params) = $node->_find($xpath,0);
1308 if ($type) {
1309 return $type->new(@params);
1310 }
1311 return undef;
1312}
1313
1314sub setOwnerDocument {
1315 my ( $self, $doc ) = @_;
1316 $doc->adoptNode( $self );
1317}
1318
1319sub toStringC14N {
1320 my ($self, $comments, $xpath, $xpc) = @_;
1321 return $self->_toStringC14N( $comments || 0,
1322 (defined $xpath ? $xpath : undef),
1323 0,
1324 undef,
1325 (defined $xpc ? $xpc : undef)
1326 );
1327}
1328sub toStringEC14N {
1329 my ($self, $comments, $xpath, $xpc, $inc_prefix_list) = @_;
1330 unless (UNIVERSAL::isa($xpc,'XML::LibXML::XPathContext')) {
1331 if ($inc_prefix_list) {
1332 croak("toStringEC14N: 3rd argument is not an XML::LibXML::XPathContext");
1333 } else {
1334 $inc_prefix_list=$xpc;
1335 $xpc=undef;
1336 }
1337 }
1338 if (defined($inc_prefix_list) and !UNIVERSAL::isa($inc_prefix_list,'ARRAY')) {
1339 croak("toStringEC14N: inclusive_prefix_list must be undefined or ARRAY");
1340 }
1341 return $self->_toStringC14N( $comments || 0,
1342 (defined $xpath ? $xpath : undef),
1343 1,
1344 (defined $inc_prefix_list ? $inc_prefix_list : undef),
1345 (defined $xpc ? $xpc : undef)
1346 );
1347}
1348
134914µs*serialize_c14n = \&toStringC14N;
135011µs*serialize_exc_c14n = \&toStringEC14N;
1351
13521300ns1;
1353
1354#-------------------------------------------------------------------------#
1355# XML::LibXML::Document Interface #
1356#-------------------------------------------------------------------------#
1357package XML::LibXML::Document;
1358
13593402µs292µs
# spent 52µs (13+39) within XML::LibXML::Document::BEGIN@1359 which was called: # once (13µs+39µs) by Authen::CAS::Client::BEGIN@12 at line 1359
use vars qw(@ISA);
# spent 52µs making 1 call to XML::LibXML::Document::BEGIN@1359 # spent 39µs making 1 call to vars::import
1360117µs@ISA = ('XML::LibXML::Node');
1361
1362sub actualEncoding {
1363 my $doc = shift;
1364 my $enc = $doc->encoding;
1365 return (defined $enc and length $enc) ? $enc : 'UTF-8';
1366}
1367
1368sub setDocumentElement {
1369 my $doc = shift;
1370 my $element = shift;
1371
1372 my $oldelem = $doc->documentElement;
1373 if ( defined $oldelem ) {
1374 $doc->removeChild($oldelem);
1375 }
1376
1377 $doc->_setDocumentElement($element);
1378}
1379
1380sub toString {
1381 my $self = shift;
1382 my $flag = shift;
1383
1384 my $retval = "";
1385
1386 if ( defined $XML::LibXML::skipXMLDeclaration
1387 and $XML::LibXML::skipXMLDeclaration == 1 ) {
1388 foreach ( $self->childNodes ){
1389 next if $_->nodeType == XML::LibXML::XML_DTD_NODE()
1390 and $XML::LibXML::skipDTD;
1391 $retval .= $_->toString;
1392 }
1393 }
1394 else {
1395 $flag ||= 0 unless defined $flag;
1396 $retval = $self->_toString($flag);
1397 }
1398
1399 return $retval;
1400}
1401
1402sub serialize {
1403 my $self = shift;
1404 return $self->toString( @_ );
1405}
1406
1407#-------------------------------------------------------------------------#
1408# bad style xinclude processing #
1409#-------------------------------------------------------------------------#
1410sub process_xinclude {
1411 my $self = shift;
1412 my $opts = shift;
1413 XML::LibXML->new->processXIncludes( $self, $opts );
1414}
1415
1416sub insertProcessingInstruction {
1417 my $self = shift;
1418 my $target = shift;
1419 my $data = shift;
1420
1421 my $pi = $self->createPI( $target, $data );
1422 my $root = $self->documentElement;
1423
1424 if ( defined $root ) {
1425 # this is actually not correct, but i guess it's what the user
1426 # intends
1427 $self->insertBefore( $pi, $root );
1428 }
1429 else {
1430 # if no documentElement was found we just append the PI
1431 $self->appendChild( $pi );
1432 }
1433}
1434
1435sub insertPI {
1436 my $self = shift;
1437 $self->insertProcessingInstruction( @_ );
1438}
1439
1440#-------------------------------------------------------------------------#
1441# DOM L3 Document functions.
1442# added after robins implicit feature requst
1443#-------------------------------------------------------------------------#
144412µs*getElementsByTagName = \&XML::LibXML::Element::getElementsByTagName;
14451900ns*getElementsByTagNameNS = \&XML::LibXML::Element::getElementsByTagNameNS;
14461900ns*getElementsByLocalName = \&XML::LibXML::Element::getElementsByLocalName;
1447
14481200ns1;
1449
1450#-------------------------------------------------------------------------#
1451# XML::LibXML::DocumentFragment Interface #
1452#-------------------------------------------------------------------------#
1453package XML::LibXML::DocumentFragment;
1454
14553119µs273µs
# spent 42µs (11+31) within XML::LibXML::DocumentFragment::BEGIN@1455 which was called: # once (11µs+31µs) by Authen::CAS::Client::BEGIN@12 at line 1455
use vars qw(@ISA);
# spent 42µs making 1 call to XML::LibXML::DocumentFragment::BEGIN@1455 # spent 31µs making 1 call to vars::import
1456111µs@ISA = ('XML::LibXML::Node');
1457
1458sub toString {
1459 my $self = shift;
1460 my $retval = "";
1461 if ( $self->hasChildNodes() ) {
1462 foreach my $n ( $self->childNodes() ) {
1463 $retval .= $n->toString(@_);
1464 }
1465 }
1466 return $retval;
1467}
1468
146911µs*serialize = \&toString;
1470
14711200ns1;
1472
1473#-------------------------------------------------------------------------#
1474# XML::LibXML::Element Interface #
1475#-------------------------------------------------------------------------#
1476package XML::LibXML::Element;
1477
1478337µs260µs
# spent 35µs (10+25) within XML::LibXML::Element::BEGIN@1478 which was called: # once (10µs+25µs) by Authen::CAS::Client::BEGIN@12 at line 1478
use vars qw(@ISA);
# spent 35µs making 1 call to XML::LibXML::Element::BEGIN@1478 # spent 25µs making 1 call to vars::import
147919µs@ISA = ('XML::LibXML::Node');
1480332µs2906µs
# spent 457µs (8+449) within XML::LibXML::Element::BEGIN@1480 which was called: # once (8µs+449µs) by Authen::CAS::Client::BEGIN@12 at line 1480
use XML::LibXML qw(:ns :libxml);
# spent 457µs making 1 call to XML::LibXML::Element::BEGIN@1480 # spent 449µs making 1 call to XML::LibXML::import
148131.03ms2129µs
# spent 71µs (12+59) within XML::LibXML::Element::BEGIN@1481 which was called: # once (12µs+59µs) by Authen::CAS::Client::BEGIN@12 at line 1481
use Carp;
# spent 71µs making 1 call to XML::LibXML::Element::BEGIN@1481 # spent 58µs making 1 call to Exporter::import
1482
1483sub setNamespace {
1484 my $self = shift;
1485 my $n = $self->nodeName;
1486 if ( $self->_setNamespace(@_) ){
1487 if ( scalar @_ < 3 || $_[2] == 1 ){
1488 $self->setNodeName( $n );
1489 }
1490 return 1;
1491 }
1492 return 0;
1493}
1494
1495sub getAttribute {
1496 my $self = shift;
1497 my $name = $_[0];
1498 if ( $name =~ /^xmlns(?::|$)/ ) {
1499 # user wants to get a namespace ...
1500 (my $prefix = $name )=~s/^xmlns:?//;
1501 $self->_getNamespaceDeclURI($prefix);
1502 }
1503 else {
1504 $self->_getAttribute(@_);
1505 }
1506}
1507
1508sub setAttribute {
1509 my ( $self, $name, $value ) = @_;
1510 if ( $name =~ /^xmlns(?::|$)/ ) {
1511 # user wants to set the special attribute for declaring XML namespace ...
1512
1513 # this is fine but not exactly DOM conformant behavior, btw (according to DOM we should
1514 # probably declare an attribute which looks like XML namespace declaration
1515 # but isn't)
1516 (my $nsprefix = $name )=~s/^xmlns:?//;
1517 my $nn = $self->nodeName;
1518 if ( $nn =~ /^\Q${nsprefix}\E:/ ) {
1519 # the element has the same prefix
1520 $self->setNamespaceDeclURI($nsprefix,$value) ||
1521 $self->setNamespace($value,$nsprefix,1);
1522 ##
1523 ## We set the namespace here.
1524 ## This is helpful, as in:
1525 ##
1526 ## | $e = XML::LibXML::Element->new('foo:bar');
1527 ## | $e->setAttribute('xmlns:foo','http://yoyodine')
1528 ##
1529 }
1530 else {
1531 # just modify the namespace
1532 $self->setNamespaceDeclURI($nsprefix, $value) ||
1533 $self->setNamespace($value,$nsprefix,0);
1534 }
1535 }
1536 else {
1537 $self->_setAttribute($name, $value);
1538 }
1539}
1540
1541sub getAttributeNS {
1542 my $self = shift;
1543 my ($nsURI, $name) = @_;
1544 croak("invalid attribute name") if !defined($name) or $name eq q{};
1545 if ( defined($nsURI) and $nsURI eq XML_XMLNS_NS ) {
1546 $self->_getNamespaceDeclURI($name eq 'xmlns' ? undef : $name);
1547 }
1548 else {
1549 $self->_getAttributeNS(@_);
1550 }
1551}
1552
1553sub setAttributeNS {
1554 my ($self, $nsURI, $qname, $value)=@_;
1555 unless (defined $qname and length $qname) {
1556 croak("bad name");
1557 }
1558 if (defined($nsURI) and $nsURI eq XML_XMLNS_NS) {
1559 if ($qname !~ /^xmlns(?::|$)/) {
1560 croak("NAMESPACE ERROR: Namespace declarations must have the prefix 'xmlns'");
1561 }
1562 $self->setAttribute($qname,$value); # see implementation above
1563 return;
1564 }
1565 if ($qname=~/:/ and not (defined($nsURI) and length($nsURI))) {
1566 croak("NAMESPACE ERROR: Attribute without a prefix cannot be in a namespace");
1567 }
1568 if ($qname=~/^xmlns(?:$|:)/) {
1569 croak("NAMESPACE ERROR: 'xmlns' prefix and qualified-name are reserved for the namespace ".XML_XMLNS_NS);
1570 }
1571 if ($qname=~/^xml:/ and not (defined $nsURI and $nsURI eq XML_XML_NS)) {
1572 croak("NAMESPACE ERROR: 'xml' prefix is reserved for the namespace ".XML_XML_NS);
1573 }
1574 $self->_setAttributeNS( defined $nsURI ? $nsURI : undef, $qname, $value );
1575}
1576
1577sub getElementsByTagName {
1578 my ( $node , $name ) = @_;
1579 my $xpath = $name eq '*' ? "descendant::*" : "descendant::*[name()='$name']";
1580 my @nodes = $node->_findnodes($xpath);
1581 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1582}
1583
1584sub getElementsByTagNameNS {
1585 my ( $node, $nsURI, $name ) = @_;
1586 my $xpath;
1587 if ( $name eq '*' ) {
1588 if ( $nsURI eq '*' ) {
1589 $xpath = "descendant::*";
1590 } else {
1591 $xpath = "descendant::*[namespace-uri()='$nsURI']";
1592 }
1593 } elsif ( $nsURI eq '*' ) {
1594 $xpath = "descendant::*[local-name()='$name']";
1595 } else {
1596 $xpath = "descendant::*[local-name()='$name' and namespace-uri()='$nsURI']";
1597 }
1598 my @nodes = $node->_findnodes($xpath);
1599 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1600}
1601
1602sub getElementsByLocalName {
1603 my ( $node,$name ) = @_;
1604 my $xpath;
1605 if ($name eq '*') {
1606 $xpath = "descendant::*";
1607 } else {
1608 $xpath = "descendant::*[local-name()='$name']";
1609 }
1610 my @nodes = $node->_findnodes($xpath);
1611 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1612}
1613
1614sub getChildrenByTagName {
1615 my ( $node, $name ) = @_;
1616 my @nodes;
1617 if ($name eq '*') {
1618 @nodes = grep { $_->nodeType == XML_ELEMENT_NODE() }
1619 $node->childNodes();
1620 } else {
1621 @nodes = grep { $_->nodeName eq $name } $node->childNodes();
1622 }
1623 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1624}
1625
1626sub getChildrenByLocalName {
1627 my ( $node, $name ) = @_;
1628 # my @nodes;
1629 # if ($name eq '*') {
1630 # @nodes = grep { $_->nodeType == XML_ELEMENT_NODE() }
1631 # $node->childNodes();
1632 # } else {
1633 # @nodes = grep { $_->nodeType == XML_ELEMENT_NODE() and
1634 # $_->localName eq $name } $node->childNodes();
1635 # }
1636 # return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1637 my @nodes = $node->_getChildrenByTagNameNS('*',$name);
1638 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1639}
1640
1641sub getChildrenByTagNameNS {
1642 my ( $node, $nsURI, $name ) = @_;
1643 my @nodes = $node->_getChildrenByTagNameNS($nsURI,$name);
1644 return wantarray ? @nodes : XML::LibXML::NodeList->new_from_ref(\@nodes, 1);
1645}
1646
1647sub appendWellBalancedChunk {
1648 my ( $self, $chunk ) = @_;
1649
1650 my $local_parser = XML::LibXML->new();
1651 my $frag = $local_parser->parse_xml_chunk( $chunk );
1652
1653 $self->appendChild( $frag );
1654}
1655
16561300ns1;
1657
1658#-------------------------------------------------------------------------#
1659# XML::LibXML::Text Interface #
1660#-------------------------------------------------------------------------#
1661package XML::LibXML::Text;
1662
16633574µs269µs
# spent 40µs (12+29) within XML::LibXML::Text::BEGIN@1663 which was called: # once (12µs+29µs) by Authen::CAS::Client::BEGIN@12 at line 1663
use vars qw(@ISA);
# spent 40µs making 1 call to XML::LibXML::Text::BEGIN@1663 # spent 29µs making 1 call to vars::import
1664110µs@ISA = ('XML::LibXML::Node');
1665
1666sub attributes { return undef; }
1667
1668sub deleteDataString {
1669 my $node = shift;
1670 my $string = shift;
1671 my $all = shift;
1672 my $data = $node->nodeValue();
1673 $string =~ s/([\\\*\+\^\{\}\&\?\[\]\(\)\$\%\@])/\\$1/g;
1674 if ( $all ) {
1675 $data =~ s/$string//g;
1676 }
1677 else {
1678 $data =~ s/$string//;
1679 }
1680 $node->setData( $data );
1681}
1682
1683sub replaceDataString {
1684 my ( $node, $left, $right,$all ) = @_;
1685
1686 #ashure we exchange the strings and not expressions!
1687 $left =~ s/([\\\*\+\^\{\}\&\?\[\]\(\)\$\%\@])/\\$1/g;
1688 my $datastr = $node->nodeValue();
1689 if ( $all ) {
1690 $datastr =~ s/$left/$right/g;
1691 }
1692 else{
1693 $datastr =~ s/$left/$right/;
1694 }
1695 $node->setData( $datastr );
1696}
1697
1698sub replaceDataRegEx {
1699 my ( $node, $leftre, $rightre, $flags ) = @_;
1700 return unless defined $leftre;
1701 $rightre ||= "";
1702
1703 my $datastr = $node->nodeValue();
1704 my $restr = "s/" . $leftre . "/" . $rightre . "/";
1705 $restr .= $flags if defined $flags;
1706
1707 eval '$datastr =~ '. $restr;
1708
1709 $node->setData( $datastr );
1710}
1711
17121200ns1;
1713
1714package XML::LibXML::Comment;
1715
1716389µs2114µs
# spent 66µs (17+48) within XML::LibXML::Comment::BEGIN@1716 which was called: # once (17µs+48µs) by Authen::CAS::Client::BEGIN@12 at line 1716
use vars qw(@ISA);
# spent 66µs making 1 call to XML::LibXML::Comment::BEGIN@1716 # spent 48µs making 1 call to vars::import
1717110µs@ISA = ('XML::LibXML::Text');
1718
17191200ns1;
1720
1721package XML::LibXML::CDATASection;
1722
1723391µs2123µs
# spent 70µs (16+53) within XML::LibXML::CDATASection::BEGIN@1723 which was called: # once (16µs+53µs) by Authen::CAS::Client::BEGIN@12 at line 1723
use vars qw(@ISA);
# spent 70µs making 1 call to XML::LibXML::CDATASection::BEGIN@1723 # spent 53µs making 1 call to vars::import
1724116µs@ISA = ('XML::LibXML::Text');
1725
17261300ns1;
1727
1728#-------------------------------------------------------------------------#
1729# XML::LibXML::Attribute Interface #
1730#-------------------------------------------------------------------------#
1731package XML::LibXML::Attr;
17323107µs268µs
# spent 40µs (12+28) within XML::LibXML::Attr::BEGIN@1732 which was called: # once (12µs+28µs) by Authen::CAS::Client::BEGIN@12 at line 1732
use vars qw( @ISA ) ;
# spent 40µs making 1 call to XML::LibXML::Attr::BEGIN@1732 # spent 28µs making 1 call to vars::import
173319µs@ISA = ('XML::LibXML::Node') ;
1734
1735sub setNamespace {
1736 my ($self,$href,$prefix) = @_;
1737 my $n = $self->nodeName;
1738 if ( $self->_setNamespace($href,$prefix) ) {
1739 $self->setNodeName($n);
1740 return 1;
1741 }
1742
1743 return 0;
1744}
1745
17461300ns1;
1747
1748#-------------------------------------------------------------------------#
1749# XML::LibXML::Dtd Interface #
1750#-------------------------------------------------------------------------#
1751# this is still under construction
1752#
1753package XML::LibXML::Dtd;
1754372µs259µs
# spent 34µs (10+24) within XML::LibXML::Dtd::BEGIN@1754 which was called: # once (10µs+24µs) by Authen::CAS::Client::BEGIN@12 at line 1754
use vars qw( @ISA );
# spent 34µs making 1 call to XML::LibXML::Dtd::BEGIN@1754 # spent 24µs making 1 call to vars::import
1755110µs@ISA = ('XML::LibXML::Node');
1756
1757# at least DESTROY and CLONE_SKIP must be inherited
1758
17591300ns1;
1760
1761#-------------------------------------------------------------------------#
1762# XML::LibXML::PI Interface #
1763#-------------------------------------------------------------------------#
1764package XML::LibXML::PI;
17653450µs2171µs
# spent 92µs (13+79) within XML::LibXML::PI::BEGIN@1765 which was called: # once (13µs+79µs) by Authen::CAS::Client::BEGIN@12 at line 1765
use vars qw( @ISA );
# spent 92µs making 1 call to XML::LibXML::PI::BEGIN@1765 # spent 79µs making 1 call to vars::import
176618µs@ISA = ('XML::LibXML::Node');
1767
1768sub setData {
1769 my $pi = shift;
1770
1771 my $string = "";
1772 if ( scalar @_ == 1 ) {
1773 $string = shift;
1774 }
1775 else {
1776 my %h = @_;
1777 $string = join " ", map {$_.'="'.$h{$_}.'"'} keys %h;
1778 }
1779
1780 # the spec says any char but "?>" [17]
1781 $pi->_setData( $string ) unless $string =~ /\?>/;
1782}
1783
17841200ns1;
1785
1786#-------------------------------------------------------------------------#
1787# XML::LibXML::Namespace Interface #
1788#-------------------------------------------------------------------------#
1789package XML::LibXML::Namespace;
1790
1791sub CLONE_SKIP { 1 }
1792
1793# this is infact not a node!
1794sub prefix { return "xmlns"; }
1795sub getPrefix { return "xmlns"; }
1796sub getNamespaceURI { return "http://www.w3.org/2000/xmlns/" };
1797
1798sub getNamespaces { return (); }
1799
1800
# spent 426µs (355+71) within XML::LibXML::Namespace::nodeName which was called 50 times, avg 9µs/call: # 50 times (355µs+71µs) by XML::LibXML::SAX::Parser::process_element at line 1805, avg 9µs/call
sub nodeName {
18015040µs my $self = shift;
180250232µs5071µs my $nsP = $self->localname;
# spent 71µs making 50 calls to XML::LibXML::Namespace::localname, avg 1µs/call
180350214µs return ( defined($nsP) && length($nsP) ) ? "xmlns:$nsP" : "xmlns";
1804}
180550291µs50426µs
# spent 172µs within XML::LibXML::Namespace::name which was called 50 times, avg 3µs/call: # 50 times (172µs+0s) by XML::LibXML::SAX::Parser::process_element at line 173 of XML/LibXML/SAX/Parser.pm, avg 3µs/call
sub name { goto &nodeName }
# spent 426µs making 50 calls to XML::LibXML::Namespace::nodeName, avg 9µs/call
1806sub getName { goto &nodeName }
1807
1808sub isEqualNode {
1809 my ( $self, $ref ) = @_;
1810 if ( ref($ref) eq "XML::LibXML::Namespace" ) {
1811 return $self->_isEqual($ref);
1812 }
1813 return 0;
1814}
1815
1816sub isSameNode {
1817 my ( $self, $ref ) = @_;
1818 if ( $$self == $$ref ){
1819 return 1;
1820 }
1821 return 0;
1822}
1823
18241200ns1;
1825
1826#-------------------------------------------------------------------------#
1827# XML::LibXML::NamedNodeMap Interface #
1828#-------------------------------------------------------------------------#
1829package XML::LibXML::NamedNodeMap;
1830
18313947µs2790µs
# spent 402µs (13+389) within XML::LibXML::NamedNodeMap::BEGIN@1831 which was called: # once (13µs+389µs) by Authen::CAS::Client::BEGIN@12 at line 1831
use XML::LibXML qw(:libxml);
# spent 402µs making 1 call to XML::LibXML::NamedNodeMap::BEGIN@1831 # spent 388µs making 1 call to XML::LibXML::import
1832
1833sub CLONE_SKIP {
1834 return $XML::LibXML::__threads_shared ? 0 : 1;
1835}
1836
1837sub new {
1838 my $class = shift;
1839 my $self = bless { Nodes => [@_] }, $class;
1840 $self->{NodeMap} = { map { $_->nodeName => $_ } @_ };
1841 return $self;
1842}
1843
1844sub length { return scalar( @{$_[0]->{Nodes}} ); }
1845sub nodes { return $_[0]->{Nodes}; }
1846sub item { $_[0]->{Nodes}->[$_[1]]; }
1847
1848sub getNamedItem {
1849 my $self = shift;
1850 my $name = shift;
1851
1852 return $self->{NodeMap}->{$name};
1853}
1854
1855sub setNamedItem {
1856 my $self = shift;
1857 my $node = shift;
1858
1859 my $retval;
1860 if ( defined $node ) {
1861 if ( scalar @{$self->{Nodes}} ) {
1862 my $name = $node->nodeName();
1863 if ( $node->nodeType() == XML_NAMESPACE_DECL ) {
1864 return;
1865 }
1866 if ( defined $self->{NodeMap}->{$name} ) {
1867 if ( $node->isSameNode( $self->{NodeMap}->{$name} ) ) {
1868 return;
1869 }
1870 $retval = $self->{NodeMap}->{$name}->replaceNode( $node );
1871 }
1872 else {
1873 $self->{Nodes}->[0]->addSibling($node);
1874 }
1875
1876 $self->{NodeMap}->{$name} = $node;
1877 push @{$self->{Nodes}}, $node;
1878 }
1879 else {
1880 # not done yet
1881 # can this be properly be done???
1882 warn "not done yet\n";
1883 }
1884 }
1885 return $retval;
1886}
1887
1888sub removeNamedItem {
1889 my $self = shift;
1890 my $name = shift;
1891 my $retval;
1892 if ( $name =~ /^xmlns/ ) {
1893 warn "not done yet\n";
1894 }
1895 elsif ( exists $self->{NodeMap}->{$name} ) {
1896 $retval = $self->{NodeMap}->{$name};
1897 $retval->unbindNode;
1898 delete $self->{NodeMap}->{$name};
1899 $self->{Nodes} = [grep {not($retval->isSameNode($_))} @{$self->{Nodes}}];
1900 }
1901
1902 return $retval;
1903}
1904
1905sub getNamedItemNS {
1906 my $self = shift;
1907 my $nsURI = shift;
1908 my $name = shift;
1909 return undef;
1910}
1911
1912sub setNamedItemNS {
1913 my $self = shift;
1914 my $nsURI = shift;
1915 my $node = shift;
1916 return undef;
1917}
1918
1919sub removeNamedItemNS {
1920 my $self = shift;
1921 my $nsURI = shift;
1922 my $name = shift;
1923 return undef;
1924}
1925
19261200ns1;
1927
1928package XML::LibXML::_SAXParser;
1929
1930# this is pseudo class!!! and it will be removed as soon all functions
1931# moved to XS level
1932
193331.24ms21.36ms
# spent 1.35ms (1.01+339µs) within XML::LibXML::_SAXParser::BEGIN@1933 which was called: # once (1.01ms+339µs) by Authen::CAS::Client::BEGIN@12 at line 1933
use XML::SAX::Exception;
# spent 1.35ms making 1 call to XML::LibXML::_SAXParser::BEGIN@1933 # spent 5µs making 1 call to UNIVERSAL::import
1934
1935sub CLONE_SKIP {
1936 return $XML::LibXML::__threads_shared ? 0 : 1;
1937}
1938
1939# these functions will use SAX exceptions as soon i know how things really work
1940sub warning {
1941 my ( $parser, $message, $line, $col ) = @_;
1942 my $error = XML::SAX::Exception::Parse->new( LineNumber => $line,
1943 ColumnNumber => $col,
1944 Message => $message, );
1945 $parser->{HANDLER}->warning( $error );
1946}
1947
1948sub error {
1949 my ( $parser, $message, $line, $col ) = @_;
1950
1951 my $error = XML::SAX::Exception::Parse->new( LineNumber => $line,
1952 ColumnNumber => $col,
1953 Message => $message, );
1954 $parser->{HANDLER}->error( $error );
1955}
1956
1957sub fatal_error {
1958 my ( $parser, $message, $line, $col ) = @_;
1959 my $error = XML::SAX::Exception::Parse->new( LineNumber => $line,
1960 ColumnNumber => $col,
1961 Message => $message, );
1962 $parser->{HANDLER}->fatal_error( $error );
1963}
1964
19651200ns1;
1966
1967package XML::LibXML::RelaxNG;
1968
1969sub CLONE_SKIP { 1 }
1970
1971sub new {
1972 my $class = shift;
1973 my %args = @_;
1974
1975 my $self = undef;
1976 if ( defined $args{location} ) {
1977 $self = $class->parse_location( $args{location} );
1978 }
1979 elsif ( defined $args{string} ) {
1980 $self = $class->parse_buffer( $args{string} );
1981 }
1982 elsif ( defined $args{DOM} ) {
1983 $self = $class->parse_document( $args{DOM} );
1984 }
1985
1986 return $self;
1987}
1988
19891200ns1;
1990
1991package XML::LibXML::Schema;
1992
1993sub CLONE_SKIP { 1 }
1994
1995sub new {
1996 my $class = shift;
1997 my %args = @_;
1998
1999 my $self = undef;
2000 if ( defined $args{location} ) {
2001 $self = $class->parse_location( $args{location} );
2002 }
2003 elsif ( defined $args{string} ) {
2004 $self = $class->parse_buffer( $args{string} );
2005 }
2006
2007 return $self;
2008}
2009
20101300ns1;
2011
2012#-------------------------------------------------------------------------#
2013# XML::LibXML::Pattern Interface #
2014#-------------------------------------------------------------------------#
2015
2016package XML::LibXML::Pattern;
2017
2018sub CLONE_SKIP { 1 }
2019
2020sub new {
2021 my $class = shift;
2022 my ($pattern,$ns_map)=@_;
2023 my $self = undef;
2024
2025 unless (UNIVERSAL::can($class,'_compilePattern')) {
2026 croak("Cannot create XML::LibXML::Pattern - ".
2027 "your libxml2 is compiled without pattern support!");
2028 }
2029
2030 if (ref($ns_map) eq 'HASH') {
2031 # translate prefix=>URL hash to a (URL,prefix) list
2032 $self = $class->_compilePattern($pattern,0,[reverse %$ns_map]);
2033 } else {
2034 $self = $class->_compilePattern($pattern,0);
2035 }
2036 return $self;
2037}
2038
20391300ns1;
2040
2041#-------------------------------------------------------------------------#
2042# XML::LibXML::RegExp Interface #
2043#-------------------------------------------------------------------------#
2044
2045package XML::LibXML::RegExp;
2046
2047sub CLONE_SKIP { 1 }
2048
2049sub new {
2050 my $class = shift;
2051 my ($regexp)=@_;
2052 unless (UNIVERSAL::can($class,'_compile')) {
2053 croak("Cannot create XML::LibXML::RegExp - ".
2054 "your libxml2 is compiled without regexp support!");
2055 }
2056 return $class->_compile($regexp);
2057}
2058
20591200ns1;
2060
2061#-------------------------------------------------------------------------#
2062# XML::LibXML::XPathExpression Interface #
2063#-------------------------------------------------------------------------#
2064
2065package XML::LibXML::XPathExpression;
2066
2067sub CLONE_SKIP { 1 }
2068
20691200ns1;
2070
2071
2072#-------------------------------------------------------------------------#
2073# XML::LibXML::InputCallback Interface #
2074#-------------------------------------------------------------------------#
2075package XML::LibXML::InputCallback;
2076
2077385µs2237µs
# spent 133µs (28+105) within XML::LibXML::InputCallback::BEGIN@2077 which was called: # once (28µs+105µs) by Authen::CAS::Client::BEGIN@12 at line 2077
use vars qw($_CUR_CB @_GLOBAL_CALLBACKS @_CB_STACK);
# spent 133µs making 1 call to XML::LibXML::InputCallback::BEGIN@2077 # spent 105µs making 1 call to vars::import
2078
2079
# spent 11µs within XML::LibXML::InputCallback::BEGIN@2079 which was called: # once (11µs+0s) by Authen::CAS::Client::BEGIN@12 at line 2083
BEGIN {
20801800ns $_CUR_CB = undef;
208111µs @_GLOBAL_CALLBACKS = ();
208218µs @_CB_STACK = ();
208311.09ms111µs}
# spent 11µs making 1 call to XML::LibXML::InputCallback::BEGIN@2079
2084
2085sub CLONE_SKIP {
2086 return $XML::LibXML::__threads_shared ? 0 : 1;
2087}
2088
2089#-------------------------------------------------------------------------#
2090# global callbacks #
2091#-------------------------------------------------------------------------#
2092
# spent 38µs within XML::LibXML::InputCallback::_callback_match which was called 3 times, avg 13µs/call: # 2 times (26µs+0s) by XML::LibXSLT::_parse_stylesheet at line 249 of XML/LibXSLT.pm, avg 13µs/call # once (12µs+0s) by XML::LibXML::_parse_file at line 923
sub _callback_match {
209336µs my $uri = shift;
209432µs my $retval = 0;
2095
2096 # loop through the callbacks and and find the first matching
2097 # The callbacks are stored in execution order (reverse stack order)
2098 # any new global callbacks are shifted to the callback stack.
2099311µs foreach my $cb ( @_GLOBAL_CALLBACKS ) {
2100
2101 # callbacks have to return 1, 0 or undef, while 0 and undef
2102 # are handled the same way.
2103 # in fact, if callbacks return other values, the global match
2104 # assumes silently that the callback failed.
2105
2106 $retval = $cb->[0]->($uri);
2107
2108 if ( defined $retval and $retval == 1 ) {
2109 # make the other callbacks use this callback
2110 $_CUR_CB = $cb;
2111 unshift @_CB_STACK, $cb;
2112 last;
2113 }
2114 }
2115
2116338µs return $retval;
2117}
2118
2119sub _callback_open {
2120 my $uri = shift;
2121 my $retval = undef;
2122
2123 # the open callback has to return a defined value.
2124 # if one works on files this can be a file handle. But
2125 # depending on the needs of the callback it also can be a
2126 # database handle or a integer labeling a certain dataset.
2127
2128 if ( defined $_CUR_CB ) {
2129 $retval = $_CUR_CB->[1]->( $uri );
2130
2131 # reset the callbacks, if one callback cannot open an uri
2132 if ( not defined $retval or $retval == 0 ) {
2133 shift @_CB_STACK;
2134 $_CUR_CB = $_CB_STACK[0];
2135 }
2136 }
2137
2138 return $retval;
2139}
2140
2141sub _callback_read {
2142 my $fh = shift;
2143 my $buflen = shift;
2144
2145 my $retval = undef;
2146
2147 if ( defined $_CUR_CB ) {
2148 $retval = $_CUR_CB->[2]->( $fh, $buflen );
2149 }
2150
2151 return $retval;
2152}
2153
2154sub _callback_close {
2155 my $fh = shift;
2156 my $retval = 0;
2157
2158 if ( defined $_CUR_CB ) {
2159 $retval = $_CUR_CB->[3]->( $fh );
2160 shift @_CB_STACK;
2161 $_CUR_CB = $_CB_STACK[0];
2162 }
2163
2164 return $retval;
2165}
2166
2167#-------------------------------------------------------------------------#
2168# member functions and methods #
2169#-------------------------------------------------------------------------#
2170
2171
# spent 657µs within XML::LibXML::InputCallback::new which was called 51 times, avg 13µs/call: # 50 times (652µs+0s) by XML::LibXML::_init_callbacks at line 722, avg 13µs/call # once (5µs+0s) by XML::LibXSLT::_init_callbacks at line 217 of XML/LibXSLT.pm
sub new {
21725174µs my $CLASS = shift;
217351622µs return bless {'_CALLBACKS' => []}, $CLASS;
2174}
2175
2176# add a callback set to the callback stack
2177# synopsis: $icb->register_callbacks( [$match_cb, $open_cb, $read_cb, $close_cb] );
2178sub register_callbacks {
2179 my $self = shift;
2180 my $cbset = shift;
2181
2182 # test if callback set is complete
2183 if ( ref $cbset eq "ARRAY" and scalar( @$cbset ) == 4 ) {
2184 unshift @{$self->{_CALLBACKS}}, $cbset;
2185 }
2186}
2187
2188# remove a callback set to the callback stack
2189# if a callback set is passed, this function will check for the match function
2190
# spent 366µs within XML::LibXML::InputCallback::unregister_callbacks which was called 51 times, avg 7µs/call: # 51 times (366µs+0s) by XML::LibXML::_cleanup_callbacks at line 741, avg 7µs/call
sub unregister_callbacks {
21915133µs my $self = shift;
21925141µs my $cbset = shift;
219351262µs if ( ref $cbset eq "ARRAY" and scalar( @$cbset ) == 4 ) {
2194 $self->{_CALLBACKS} = [grep { $_->[0] != $cbset->[0] } @{$self->{_CALLBACKS}}];
2195 }
2196 else {
21975166µs shift @{$self->{_CALLBACKS}};
2198 }
2199}
2200
2201# make libxml2 use the callbacks
2202
# spent 1.21ms (893µs+320µs) within XML::LibXML::InputCallback::init_callbacks which was called 77 times, avg 16µs/call: # 51 times (690µs+275µs) by XML::LibXML::_init_callbacks at line 734, avg 19µs/call # 25 times (190µs+42µs) by XML::LibXSLT::StylesheetWrapper::_init_callbacks at line 435 of XML/LibXSLT.pm, avg 9µs/call # once (13µs+3µs) by XML::LibXSLT::_init_callbacks at line 231 of XML/LibXSLT.pm
sub init_callbacks {
22037773µs my $self = shift;
2204
22057770µs $_CUR_CB = undef;
22067781µs @_CB_STACK = ();
2207
220877113µs @_GLOBAL_CALLBACKS = @{ $self->{_CALLBACKS} };
2209
22107761µs if ( defined $XML::LibXML::match_cb and
2211 defined $XML::LibXML::open_cb and
2212 defined $XML::LibXML::read_cb and
2213 defined $XML::LibXML::close_cb ) {
2214 push @_GLOBAL_CALLBACKS, [$XML::LibXML::match_cb,
2215 $XML::LibXML::open_cb,
2216 $XML::LibXML::read_cb,
2217 $XML::LibXML::close_cb];
2218 }
2219
222077888µs77320µs $self->lib_init_callbacks();
# spent 320µs making 77 calls to XML::LibXML::InputCallback::lib_init_callbacks, avg 4µs/call
2221}
2222
2223# reset libxml2's callbacks
2224
# spent 1.01ms (787µs+226µs) within XML::LibXML::InputCallback::cleanup_callbacks which was called 77 times, avg 13µs/call: # 51 times (539µs+142µs) by XML::LibXML::_cleanup_callbacks at line 739, avg 13µs/call # 25 times (238µs+80µs) by XML::LibXSLT::StylesheetWrapper::_cleanup_callbacks at line 445 of XML/LibXSLT.pm, avg 13µs/call # once (10µs+4µs) by XML::LibXSLT::_cleanup_callbacks at line 236 of XML/LibXSLT.pm
sub cleanup_callbacks {
22257751µs my $self = shift;
2226
22277750µs $_CUR_CB = undef;
22287762µs @_GLOBAL_CALLBACKS = ();
22297730µs @_CB_STACK = ();
2230
223177910µs77226µs $self->lib_cleanup_callbacks();
# spent 226µs making 77 calls to XML::LibXML::InputCallback::lib_cleanup_callbacks, avg 3µs/call
2232}
2233
22341700ns$XML::LibXML::__loaded=1;
2235
2236144µs1;
2237
2238__END__
 
# spent 3.28ms within XML::LibXML::Attr::name which was called 2230 times, avg 1µs/call: # 2230 times (3.28ms+0s) by XML::LibXML::SAX::Parser::process_element at line 212 of XML/LibXML/SAX/Parser.pm, avg 1µs/call
sub XML::LibXML::Attr::name; # xsub
# spent 5.31ms within XML::LibXML::Attr::value which was called 2230 times, avg 2µs/call: # 2230 times (5.31ms+0s) by XML::LibXML::SAX::Parser::process_element at line 220 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Attr::value; # xsub
# spent 11µs within XML::LibXML::CORE:match which was called 9 times, avg 1µs/call: # 4 times (3µs+0s) by XML::LibXML::import at line 183, avg 775ns/call # 4 times (2µs+0s) by XML::LibXML::import at line 206, avg 450ns/call # once (6µs+0s) by Authen::CAS::Client::BEGIN@12 at line 221
sub XML::LibXML::CORE:match; # opcode
# spent 74µs within XML::LibXML::Document::encoding which was called 25 times, avg 3µs/call: # 25 times (74µs+0s) by XML::LibXML::SAX::Parser::generate at line 72 of XML/LibXML/SAX/Parser.pm, avg 3µs/call
sub XML::LibXML::Document::encoding; # xsub
# spent 68µs within XML::LibXML::Document::externalSubset which was called 25 times, avg 3µs/call: # 25 times (68µs+0s) by XML::LibXML::SAX::Parser::generate at line 66 of XML/LibXML/SAX/Parser.pm, avg 3µs/call
sub XML::LibXML::Document::externalSubset; # xsub
# spent 53µs within XML::LibXML::Document::getEncoding which was called 25 times, avg 2µs/call: # 25 times (53µs+0s) by XML::LibXML::SAX::Parser::generate at line 90 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Document::getEncoding; # xsub
# spent 77µs within XML::LibXML::Document::getVersion which was called 25 times, avg 3µs/call: # 25 times (77µs+0s) by XML::LibXML::SAX::Parser::generate at line 90 of XML/LibXML/SAX/Parser.pm, avg 3µs/call
sub XML::LibXML::Document::getVersion; # xsub
# spent 54µs within XML::LibXML::Document::version which was called 25 times, avg 2µs/call: # 25 times (54µs+0s) by XML::LibXML::SAX::Parser::generate at line 73 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Document::version; # xsub
# spent 50µs within XML::LibXML::END which was called: # once (50µs+0s) by main::RUNTIME at line 0 of /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
sub XML::LibXML::END; # xsub
# spent 226µs within XML::LibXML::InputCallback::lib_cleanup_callbacks which was called 77 times, avg 3µs/call: # 77 times (226µs+0s) by XML::LibXML::InputCallback::cleanup_callbacks at line 2231, avg 3µs/call
sub XML::LibXML::InputCallback::lib_cleanup_callbacks; # xsub
# spent 320µs within XML::LibXML::InputCallback::lib_init_callbacks which was called 77 times, avg 4µs/call: # 77 times (320µs+0s) by XML::LibXML::InputCallback::init_callbacks at line 2220, avg 4µs/call
sub XML::LibXML::InputCallback::lib_init_callbacks; # xsub
# spent 40µs within XML::LibXML::LIBXML_RUNTIME_VERSION which was called: # once (40µs+0s) by Authen::CAS::Client::BEGIN@12 at line 221
sub XML::LibXML::LIBXML_RUNTIME_VERSION; # xsub
# spent 10µs within XML::LibXML::LIBXML_VERSION which was called: # once (10µs+0s) by Authen::CAS::Client::BEGIN@12 at line 222
sub XML::LibXML::LIBXML_VERSION; # xsub
# spent 206µs within XML::LibXML::Namespace::DESTROY which was called 100 times, avg 2µs/call: # 50 times (93µs+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # 25 times (75µs+0s) by XML::LibXML::SAX::Parser::process_element at line 102 of XML/LibXML/SAX/Parser.pm, avg 3µs/call # 25 times (38µs+0s) by XML::LibXML::SAX::Parser::process_node at line 127 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Namespace::DESTROY; # xsub
# spent 348µs within XML::LibXML::Namespace::href which was called 150 times, avg 2µs/call: # 50 times (135µs+0s) by XML::LibXML::SAX::Parser::process_element at line 254 of XML/LibXML/SAX/Parser.pm, avg 3µs/call # 50 times (135µs+0s) by XML::LibXML::SAX::Parser::process_element at line 158 of XML/LibXML/SAX/Parser.pm, avg 3µs/call # 50 times (78µs+0s) by XML::LibXML::SAX::Parser::process_element at line 195 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Namespace::href; # xsub
# spent 319µs within XML::LibXML::Namespace::localname which was called 250 times, avg 1µs/call: # 75 times (93µs+0s) by XML::LibXML::SAX::Parser::process_element at line 158 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 75 times (85µs+0s) by XML::LibXML::SAX::Parser::process_element at line 254 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 50 times (71µs+0s) by XML::LibXML::Namespace::nodeName at line 1802, avg 1µs/call # 50 times (69µs+0s) by XML::LibXML::SAX::Parser::process_element at line 186 of XML/LibXML/SAX/Parser.pm, avg 1µs/call
sub XML::LibXML::Namespace::localname; # xsub
# spent 11.0ms within XML::LibXML::Node::DESTROY which was called 6191 times, avg 2µs/call: # 3835 times (5.06ms+0s) by XML::LibXML::SAX::Parser::process_element at line 247 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 2230 times (3.11ms+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 50 times (1.40ms+0s) by C4::XSLT::XSLTParse4Display at line 2014 of /usr/share/koha/lib/C4/Search.pm, avg 28µs/call # 25 times (1.05ms+0s) by XML::LibXML::SAX::Parser::_parse_string at line 2602 of XML/SAX/Base.pm, avg 42µs/call # 25 times (52µs+0s) by XML::LibXML::SAX::Parser::generate at line 92 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # 25 times (44µs+0s) by XML::LibXML::SAX::Parser::generate at line 43 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # once (245µs+0s) by C4::XSLT::XSLTParse4Display at line 228 of /usr/share/koha/lib/C4/XSLT.pm
sub XML::LibXML::Node::DESTROY; # xsub
# spent 6.20ms within XML::LibXML::Node::_attributes which was called 1295 times, avg 5µs/call: # 1295 times (6.20ms+0s) by XML::LibXML::Node::attributes at line 1267, avg 5µs/call
sub XML::LibXML::Node::_attributes; # xsub
# spent 8.39ms within XML::LibXML::Node::_childNodes which was called 1320 times, avg 6µs/call: # 1320 times (8.39ms+0s) by XML::LibXML::Node::childNodes at line 1255, avg 6µs/call
sub XML::LibXML::Node::_childNodes; # xsub
# spent 2.16ms within XML::LibXML::Node::getNamespaces which was called 1295 times, avg 2µs/call: # 1295 times (2.16ms+0s) by XML::LibXML::SAX::Parser::process_element at line 155 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Node::getNamespaces; # xsub
# spent 9.21ms within XML::LibXML::Node::localname which was called 5755 times, avg 2µs/call: # 2230 times (4.14ms+0s) by XML::LibXML::SAX::Parser::process_element at line 209 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # 2230 times (3.21ms+0s) by XML::LibXML::SAX::Parser::process_element at line 220 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 1295 times (1.86ms+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 1µs/call
sub XML::LibXML::Node::localname; # xsub
# spent 6.10ms within XML::LibXML::Node::namespaceURI which was called 3525 times, avg 2µs/call: # 2230 times (3.64ms+0s) by XML::LibXML::SAX::Parser::process_element at line 206 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # 1295 times (2.45ms+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Node::namespaceURI; # xsub
# spent 3.19ms within XML::LibXML::Node::nodeName which was called 1295 times, avg 2µs/call: # 1295 times (3.19ms+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 2µs/call
sub XML::LibXML::Node::nodeName; # xsub
# spent 8.08ms within XML::LibXML::Node::nodeType which was called 3910 times, avg 2µs/call: # 3885 times (7.98ms+0s) by XML::LibXML::SAX::Parser::process_node at line 101 of XML/LibXML/SAX/Parser.pm, avg 2µs/call # 25 times (102µs+0s) by XML::LibXML::SAX::Parser::generate at line 87 of XML/LibXML/SAX/Parser.pm, avg 4µs/call
sub XML::LibXML::Node::nodeType; # xsub
# spent 7.12ms within XML::LibXML::Node::nodeValue which was called 2565 times, avg 3µs/call: # 2565 times (7.12ms+0s) by XML::LibXML::SAX::Parser::process_node at line 102 of XML/LibXML/SAX/Parser.pm, avg 3µs/call
sub XML::LibXML::Node::nodeValue; # xsub
# spent 211µs within XML::LibXML::Node::ownerDocument which was called 25 times, avg 8µs/call: # 25 times (211µs+0s) by XML::LibXML::SAX::Parser::generate at line 57 of XML/LibXML/SAX/Parser.pm, avg 8µs/call
sub XML::LibXML::Node::ownerDocument; # xsub
# spent 4.70ms within XML::LibXML::Node::prefix which was called 3525 times, avg 1µs/call: # 2230 times (3.04ms+0s) by XML::LibXML::SAX::Parser::process_element at line 215 of XML/LibXML/SAX/Parser.pm, avg 1µs/call # 1295 times (1.66ms+0s) by XML::LibXML::SAX::Parser::process_element at line 233 of XML/LibXML/SAX/Parser.pm, avg 1µs/call
sub XML::LibXML::Node::prefix; # xsub
# spent 1.71ms (1.70+12µs) within XML::LibXML::_parse_file which was called: # once (1.70ms+12µs) by XML::LibXML::parse_file at line 923
sub XML::LibXML::_parse_file; # xsub
# spent 12.1ms within XML::LibXML::_parse_string which was called 50 times, avg 242µs/call: # 50 times (12.1ms+0s) by XML::LibXML::parse_string at line 846, avg 242µs/call
sub XML::LibXML::_parse_string; # xsub
# spent 934µs within XML::LibXML::bootstrap which was called: # once (934µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm
sub XML::LibXML::bootstrap; # xsub
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.