Profile of /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/XML/LibXML.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For 01.HTTP.t
Run on Tue May 4 14:17:45 2010
Reported on Tue May 4 14:18:13 2010

File | /usr/local/lib/perl5/site_perl/5.10.1/darwin-2level/XML/LibXML.pm
Statements Executed | 472
Statement Execution Time | 10.3ms

Subroutines — ordered by exclusive time
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 1.61ms | 6.57ms | XML::LibXML::::BEGIN@23 XML::LibXML::BEGIN@23
3 | 1 | 2 | 1.15ms | 3.06ms | XML::LibXML::::_parse_sax_string XML::LibXML::_parse_sax_string (xsub)
1 | 1 | 2 | 708µs | 708µs | XML::LibXML::::bootstrap XML::LibXML::bootstrap (xsub)
1 | 1 | 1 | 647µs | 788µs | XML::LibXML::::BEGIN@25 XML::LibXML::BEGIN@25
1 | 1 | 1 | 566µs | 2.07ms | XML::LibXML::::BEGIN@24 XML::LibXML::BEGIN@24
3 | 1 | 1 | 113µs | 244µs | XML::LibXML::::_init_callbacks XML::LibXML::_init_callbacks
3 | 1 | 1 | 81µs | 3.49ms | XML::LibXML::::parse_string XML::LibXML::parse_string
1 | 1 | 1 | 67µs | 1.09ms | XML::LibXML::::BEGIN@28 XML::LibXML::BEGIN@28
3 | 3 | 2 | 54µs | 811µs | XML::LibXML::::import XML::LibXML::import
3 | 1 | 1 | 45µs | 100µs | XML::LibXML::::_cleanup_callbacks XML::LibXML::_cleanup_callbacks
1 | 1 | 2 | 41µs | 41µs | XML::LibXML::::END XML::LibXML::END (xsub)
3 | 1 | 1 | 36µs | 36µs | XML::LibXML::::new XML::LibXML::new
6 | 2 | 1 | 35µs | 35µs | XML::LibXML::::set_handler XML::LibXML::set_handler
3 | 1 | 1 | 32µs | 54µs | XML::LibXML::InputCallback::::init_callbacks XML::LibXML::InputCallback::init_callbacks
6 | 2 | 1 | 25µs | 25µs | XML::LibXML::::match_callback XML::LibXML::match_callback
3 | 1 | 1 | 24µs | 30µs | XML::LibXML::InputCallback::::cleanup_callbacks XML::LibXML::InputCallback::cleanup_callbacks
3 | 1 | 2 | 21µs | 21µs | XML::LibXML::InputCallback::::lib_init_callbacks XML::LibXML::InputCallback::lib_init_callbacks (xsub)
3 | 1 | 1 | 20µs | 20µs | XML::LibXML::InputCallback::::new XML::LibXML::InputCallback::new
1 | 1 | 1 | 18µs | 287µs | XML::LibXML::::BEGIN@234 XML::LibXML::BEGIN@234
3 | 1 | 1 | 17µs | 17µs | XML::LibXML::InputCallback::::unregister_callbacks XML::LibXML::InputCallback::unregister_callbacks
1 | 1 | 1 | 16µs | 19µs | XML::LibXML::::BEGIN@13 XML::LibXML::BEGIN@13
1 | 1 | 1 | 16µs | 48µs | XML::LibXML::::BEGIN@168 XML::LibXML::BEGIN@168
3 | 1 | 1 | 14µs | 14µs | XML::LibXML::::open_callback XML::LibXML::open_callback
3 | 1 | 1 | 13µs | 13µs | XML::LibXML::::close_callback XML::LibXML::close_callback
3 | 1 | 1 | 13µs | 13µs | XML::LibXML::::read_callback XML::LibXML::read_callback
1 | 1 | 2 | 12µs | 12µs | XML::LibXML::::LIBXML_RUNTIME_VERSION XML::LibXML::LIBXML_RUNTIME_VERSION (xsub)
1 | 1 | 1 | 12µs | 27µs | XML::LibXML::::BEGIN@26 XML::LibXML::BEGIN@26
1 | 1 | 1 | 10µs | 34µs | XML::LibXML::::BEGIN@166 XML::LibXML::BEGIN@166
1 | 1 | 1 | 10µs | 10µs | XML::LibXML::_SAXParser::::BEGIN@1933 XML::LibXML::_SAXParser::BEGIN@1933
1 | 1 | 1 | 10µs | 47µs | XML::LibXML::::BEGIN@18 XML::LibXML::BEGIN@18
1 | 1 | 1 | 9µs | 42µs | XML::LibXML::::BEGIN@20 XML::LibXML::BEGIN@20
1 | 1 | 1 | 9µs | 33µs | XML::LibXML::Document::::BEGIN@1359 XML::LibXML::Document::BEGIN@1359
1 | 1 | 1 | 8µs | 49µs | XML::LibXML::Element::::BEGIN@1481 XML::LibXML::Element::BEGIN@1481
1 | 1 | 1 | 8µs | 31µs | XML::LibXML::DocumentFragment::::BEGIN@1455XML::LibXML::DocumentFragment::BEGIN@1455
1 | 1 | 1 | 8µs | 47µs | XML::LibXML::::BEGIN@159 XML::LibXML::BEGIN@159
1 | 1 | 1 | 8µs | 29µs | XML::LibXML::Comment::::BEGIN@1716 XML::LibXML::Comment::BEGIN@1716
1 | 1 | 1 | 8µs | 28µs | XML::LibXML::Element::::BEGIN@1478 XML::LibXML::Element::BEGIN@1478
1 | 1 | 1 | 8µs | 30µs | XML::LibXML::Text::::BEGIN@1663 XML::LibXML::Text::BEGIN@1663
1 | 1 | 1 | 8µs | 293µs | XML::LibXML::NamedNodeMap::::BEGIN@1831 XML::LibXML::NamedNodeMap::BEGIN@1831
1 | 1 | 1 | 8µs | 55µs | XML::LibXML::InputCallback::::BEGIN@2077 XML::LibXML::InputCallback::BEGIN@2077
1 | 1 | 1 | 7µs | 179µs | XML::LibXML::::BEGIN@14 XML::LibXML::BEGIN@14
1 | 1 | 1 | 7µs | 32µs | XML::LibXML::Attr::::BEGIN@1732 XML::LibXML::Attr::BEGIN@1732
1 | 1 | 1 | 7µs | 46µs | XML::LibXML::::BEGIN@21 XML::LibXML::BEGIN@21
1 | 1 | 1 | 7µs | 371µs | XML::LibXML::Element::::BEGIN@1480 XML::LibXML::Element::BEGIN@1480
1 | 1 | 1 | 7µs | 70µs | XML::LibXML::::BEGIN@35 XML::LibXML::BEGIN@35
1 | 1 | 1 | 7µs | 25µs | XML::LibXML::Dtd::::BEGIN@1754 XML::LibXML::Dtd::BEGIN@1754
1 | 1 | 1 | 7µs | 31µs | XML::LibXML::::BEGIN@178 XML::LibXML::BEGIN@178
1 | 1 | 1 | 6µs | 24µs | XML::LibXML::CDATASection::::BEGIN@1723 XML::LibXML::CDATASection::BEGIN@1723
1 | 1 | 1 | 6µs | 32µs | XML::LibXML::::BEGIN@259 XML::LibXML::BEGIN@259
1 | 1 | 1 | 6µs | 30µs | XML::LibXML::::BEGIN@161 XML::LibXML::BEGIN@161
1 | 1 | 1 | 6µs | 32µs | XML::LibXML::::BEGIN@160 XML::LibXML::BEGIN@160
1 | 1 | 1 | 6µs | 37µs | XML::LibXML::::BEGIN@167 XML::LibXML::BEGIN@167
1 | 1 | 1 | 6µs | 29µs | XML::LibXML::::BEGIN@165 XML::LibXML::BEGIN@165
1 | 1 | 1 | 6µs | 30µs | XML::LibXML::::BEGIN@164 XML::LibXML::BEGIN@164
3 | 1 | 2 | 6µs | 6µs | XML::LibXML::InputCallback::::lib_cleanup_callbacks XML::LibXML::InputCallback::lib_cleanup_callbacks (xsub)
1 | 1 | 1 | 6µs | 31µs | XML::LibXML::::BEGIN@169 XML::LibXML::BEGIN@169
1 | 1 | 1 | 6µs | 34µs | XML::LibXML::::BEGIN@173 XML::LibXML::BEGIN@173
1 | 1 | 1 | 6µs | 22µs | XML::LibXML::PI::::BEGIN@1765 XML::LibXML::PI::BEGIN@1765
1 | 1 | 1 | 6µs | 28µs | XML::LibXML::::BEGIN@175 XML::LibXML::BEGIN@175
1 | 1 | 1 | 6µs | 28µs | XML::LibXML::::BEGIN@177 XML::LibXML::BEGIN@177
1 | 1 | 1 | 6µs | 29µs | XML::LibXML::::BEGIN@174 XML::LibXML::BEGIN@174
1 | 1 | 1 | 6µs | 29µs | XML::LibXML::::BEGIN@162 XML::LibXML::BEGIN@162
1 | 1 | 1 | 6µs | 28µs | XML::LibXML::::BEGIN@170 XML::LibXML::BEGIN@170
1 | 1 | 1 | 5µs | 28µs | XML::LibXML::::BEGIN@172 XML::LibXML::BEGIN@172
1 | 1 | 1 | 5µs | 28µs | XML::LibXML::::BEGIN@171 XML::LibXML::BEGIN@171
1 | 1 | 1 | 5µs | 28µs | XML::LibXML::::BEGIN@163 XML::LibXML::BEGIN@163
1 | 1 | 1 | 5µs | 28µs | XML::LibXML::::BEGIN@176 XML::LibXML::BEGIN@176
1 | 1 | 2 | 5µs | 5µs | XML::LibXML::::LIBXML_VERSION XML::LibXML::LIBXML_VERSION (xsub)
1 | 1 | 1 | 4µs | 4µs | XML::LibXML::InputCallback::::BEGIN@2079 XML::LibXML::InputCallback::BEGIN@2079
7 | 3 | 2 | 3µs | 3µs | XML::LibXML::::CORE:match XML::LibXML::CORE:match (opcode)
0 | 0 | 0 | 0s | 0s | XML::LibXML::Attr::::setNamespace XML::LibXML::Attr::setNamespace
0 | 0 | 0 | 0s | 0s | XML::LibXML::::CLONE XML::LibXML::CLONE
0 | 0 | 0 | 0s | 0s | XML::LibXML::::CLONE_SKIP XML::LibXML::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::actualEncoding XML::LibXML::Document::actualEncoding
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::insertPI XML::LibXML::Document::insertPI
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::insertProcessingInstruction XML::LibXML::Document::insertProcessingInstruction
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::process_xinclude XML::LibXML::Document::process_xinclude
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::serialize XML::LibXML::Document::serialize
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::setDocumentElement XML::LibXML::Document::setDocumentElement
0 | 0 | 0 | 0s | 0s | XML::LibXML::Document::::toString XML::LibXML::Document::toString
0 | 0 | 0 | 0s | 0s | XML::LibXML::DocumentFragment::::toStringXML::LibXML::DocumentFragment::toString
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::appendWellBalancedChunk XML::LibXML::Element::appendWellBalancedChunk
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getAttribute XML::LibXML::Element::getAttribute
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getAttributeNS XML::LibXML::Element::getAttributeNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getChildrenByLocalName XML::LibXML::Element::getChildrenByLocalName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getChildrenByTagName XML::LibXML::Element::getChildrenByTagName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getChildrenByTagNameNS XML::LibXML::Element::getChildrenByTagNameNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getElementsByLocalName XML::LibXML::Element::getElementsByLocalName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getElementsByTagName XML::LibXML::Element::getElementsByTagName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::getElementsByTagNameNS XML::LibXML::Element::getElementsByTagNameNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::setAttribute XML::LibXML::Element::setAttribute
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::setAttributeNS XML::LibXML::Element::setAttributeNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::Element::::setNamespace XML::LibXML::Element::setNamespace
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::CLONE_SKIP XML::LibXML::InputCallback::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::_callback_close XML::LibXML::InputCallback::_callback_close
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::_callback_match XML::LibXML::InputCallback::_callback_match
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::_callback_open XML::LibXML::InputCallback::_callback_open
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::_callback_read XML::LibXML::InputCallback::_callback_read
0 | 0 | 0 | 0s | 0s | XML::LibXML::InputCallback::::register_callbacks XML::LibXML::InputCallback::register_callbacks
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::CLONE_SKIP XML::LibXML::NamedNodeMap::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::getNamedItem XML::LibXML::NamedNodeMap::getNamedItem
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::getNamedItemNS XML::LibXML::NamedNodeMap::getNamedItemNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::item XML::LibXML::NamedNodeMap::item
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::length XML::LibXML::NamedNodeMap::length
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::new XML::LibXML::NamedNodeMap::new
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::nodes XML::LibXML::NamedNodeMap::nodes
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::removeNamedItem XML::LibXML::NamedNodeMap::removeNamedItem
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::removeNamedItemNS XML::LibXML::NamedNodeMap::removeNamedItemNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::setNamedItem XML::LibXML::NamedNodeMap::setNamedItem
0 | 0 | 0 | 0s | 0s | XML::LibXML::NamedNodeMap::::setNamedItemNS XML::LibXML::NamedNodeMap::setNamedItemNS
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::CLONE_SKIP XML::LibXML::Namespace::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::getName XML::LibXML::Namespace::getName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::getNamespaceURI XML::LibXML::Namespace::getNamespaceURI
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::getNamespaces XML::LibXML::Namespace::getNamespaces
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::getPrefix XML::LibXML::Namespace::getPrefix
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::isEqualNode XML::LibXML::Namespace::isEqualNode
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::isSameNode XML::LibXML::Namespace::isSameNode
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::name XML::LibXML::Namespace::name
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::nodeName XML::LibXML::Namespace::nodeName
0 | 0 | 0 | 0s | 0s | XML::LibXML::Namespace::::prefix XML::LibXML::Namespace::prefix
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::CLONE_SKIP XML::LibXML::Node::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::attributes XML::LibXML::Node::attributes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::childNodes XML::LibXML::Node::childNodes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::exists XML::LibXML::Node::exists
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::find XML::LibXML::Node::find
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::findbool XML::LibXML::Node::findbool
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::findnodes XML::LibXML::Node::findnodes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::findvalue XML::LibXML::Node::findvalue
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::getChildNodes XML::LibXML::Node::getChildNodes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::isSupported XML::LibXML::Node::isSupported
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::nonBlankChildNodes XML::LibXML::Node::nonBlankChildNodes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::setOwnerDocument XML::LibXML::Node::setOwnerDocument
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::toStringC14N XML::LibXML::Node::toStringC14N
0 | 0 | 0 | 0s | 0s | XML::LibXML::Node::::toStringEC14N XML::LibXML::Node::toStringEC14N
0 | 0 | 0 | 0s | 0s | XML::LibXML::PI::::setData XML::LibXML::PI::setData
0 | 0 | 0 | 0s | 0s | XML::LibXML::Pattern::::CLONE_SKIP XML::LibXML::Pattern::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::Pattern::::new XML::LibXML::Pattern::new
0 | 0 | 0 | 0s | 0s | XML::LibXML::RegExp::::CLONE_SKIP XML::LibXML::RegExp::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::RegExp::::new XML::LibXML::RegExp::new
0 | 0 | 0 | 0s | 0s | XML::LibXML::RelaxNG::::CLONE_SKIP XML::LibXML::RelaxNG::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::RelaxNG::::new XML::LibXML::RelaxNG::new
0 | 0 | 0 | 0s | 0s | XML::LibXML::Schema::::CLONE_SKIP XML::LibXML::Schema::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::Schema::::new XML::LibXML::Schema::new
0 | 0 | 0 | 0s | 0s | XML::LibXML::Text::::attributes XML::LibXML::Text::attributes
0 | 0 | 0 | 0s | 0s | XML::LibXML::Text::::deleteDataString XML::LibXML::Text::deleteDataString
0 | 0 | 0 | 0s | 0s | XML::LibXML::Text::::replaceDataRegEx XML::LibXML::Text::replaceDataRegEx
0 | 0 | 0 | 0s | 0s | XML::LibXML::Text::::replaceDataString XML::LibXML::Text::replaceDataString
0 | 0 | 0 | 0s | 0s | XML::LibXML::::VERSION XML::LibXML::VERSION
0 | 0 | 0 | 0s | 0s | XML::LibXML::XPathExpression::::CLONE_SKIP XML::LibXML::XPathExpression::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::_SAXParser::::CLONE_SKIP XML::LibXML::_SAXParser::CLONE_SKIP
0 | 0 | 0 | 0s | 0s | XML::LibXML::_SAXParser::::error XML::LibXML::_SAXParser::error
0 | 0 | 0 | 0s | 0s | XML::LibXML::_SAXParser::::fatal_error XML::LibXML::_SAXParser::fatal_error
0 | 0 | 0 | 0s | 0s | XML::LibXML::_SAXParser::::warning XML::LibXML::_SAXParser::warning
0 | 0 | 0 | 0s | 0s | XML::LibXML::::__parser_option XML::LibXML::__parser_option
0 | 0 | 0 | 0s | 0s | XML::LibXML::::__proxy_registry XML::LibXML::__proxy_registry
0 | 0 | 0 | 0s | 0s | XML::LibXML::::__read XML::LibXML::__read
0 | 0 | 0 | 0s | 0s | XML::LibXML::::__write XML::LibXML::__write
0 | 0 | 0 | 0s | 0s | XML::LibXML::::_auto_expand XML::LibXML::_auto_expand
0 | 0 | 0 | 0s | 0s | XML::LibXML::::_clone XML::LibXML::_clone
0 | 0 | 0 | 0s | 0s | XML::LibXML::::_html_options XML::LibXML::_html_options
0 | 0 | 0 | 0s | 0s | XML::LibXML::::_parser_options XML::LibXML::_parser_options
0 | 0 | 0 | 0s | 0s | XML::LibXML::::base_uri XML::LibXML::base_uri
0 | 0 | 0 | 0s | 0s | XML::LibXML::::callbacks XML::LibXML::callbacks
0 | 0 | 0 | 0s | 0s | XML::LibXML::::clean_namespaces XML::LibXML::clean_namespaces
0 | 0 | 0 | 0s | 0s | XML::LibXML::::complete_attributes XML::LibXML::complete_attributes
0 | 0 | 0 | 0s | 0s | XML::LibXML::::createDocument XML::LibXML::createDocument
0 | 0 | 0 | 0s | 0s | XML::LibXML::::expand_entities XML::LibXML::expand_entities
0 | 0 | 0 | 0s | 0s | XML::LibXML::::expand_xinclude XML::LibXML::expand_xinclude
0 | 0 | 0 | 0s | 0s | XML::LibXML::::finish_push XML::LibXML::finish_push
0 | 0 | 0 | 0s | 0s | XML::LibXML::::gdome_dom XML::LibXML::gdome_dom
0 | 0 | 0 | 0s | 0s | XML::LibXML::::get_option XML::LibXML::get_option
0 | 0 | 0 | 0s | 0s | XML::LibXML::::init_push XML::LibXML::init_push
0 | 0 | 0 | 0s | 0s | XML::LibXML::::input_callbacks XML::LibXML::input_callbacks
0 | 0 | 0 | 0s | 0s | XML::LibXML::::keep_blanks XML::LibXML::keep_blanks
0 | 0 | 0 | 0s | 0s | XML::LibXML::::line_numbers XML::LibXML::line_numbers
0 | 0 | 0 | 0s | 0s | XML::LibXML::::load_ext_dtd XML::LibXML::load_ext_dtd
0 | 0 | 0 | 0s | 0s | XML::LibXML::::load_html XML::LibXML::load_html
0 | 0 | 0 | 0s | 0s | XML::LibXML::::load_xml XML::LibXML::load_xml
0 | 0 | 0 | 0s | 0s | XML::LibXML::::no_network XML::LibXML::no_network
0 | 0 | 0 | 0s | 0s | XML::LibXML::::option_exists XML::LibXML::option_exists
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_balanced_chunk XML::LibXML::parse_balanced_chunk
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_chunk XML::LibXML::parse_chunk
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_fh XML::LibXML::parse_fh
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_file XML::LibXML::parse_file
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_html_fh XML::LibXML::parse_html_fh
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_html_file XML::LibXML::parse_html_file
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_html_string XML::LibXML::parse_html_string
0 | 0 | 0 | 0s | 0s | XML::LibXML::::parse_xml_chunk XML::LibXML::parse_xml_chunk
0 | 0 | 0 | 0s | 0s | XML::LibXML::::pedantic_parser XML::LibXML::pedantic_parser
0 | 0 | 0 | 0s | 0s | XML::LibXML::::processXIncludes XML::LibXML::processXIncludes
0 | 0 | 0 | 0s | 0s | XML::LibXML::::process_xincludes XML::LibXML::process_xincludes
0 | 0 | 0 | 0s | 0s | XML::LibXML::::push XML::LibXML::push
0 | 0 | 0 | 0s | 0s | XML::LibXML::::recover XML::LibXML::recover
0 | 0 | 0 | 0s | 0s | XML::LibXML::::recover_silently XML::LibXML::recover_silently
0 | 0 | 0 | 0s | 0s | XML::LibXML::::set_option XML::LibXML::set_option
0 | 0 | 0 | 0s | 0s | XML::LibXML::::set_options XML::LibXML::set_options
0 | 0 | 0 | 0s | 0s | XML::LibXML::::threads_shared_enabled XML::LibXML::threads_shared_enabled
0 | 0 | 0 | 0s | 0s | XML::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 |  |  |  |  |
11 |  |  |  |  | package XML::LibXML;
12 |  |  |  |  |
13 | 3 | 41µs | 2 | 22µs | # spent 19µs (16+3) within XML::LibXML::BEGIN@13 which was called # once (16µs+3µs) by XML::LibXML::SAX::BEGIN@17 at line 13 use strict; # spent 19µs making 1 call to XML::LibXML::BEGIN@13 # spent 3µs making 1 call to strict::import
14 | 1 | 5µs | 1 | 172µs | # spent 179µs (7+172) within XML::LibXML::BEGIN@14 which was called # once (7µs+172µs) by XML::LibXML::SAX::BEGIN@17 at line 17 use vars qw($VERSION $ABI_VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS # spent 172µs making 1 call to vars::import
15 |  |  |  |  | $skipDTD $skipXMLDeclaration $setTagCompression
16 |  |  |  |  | $MatchCB $ReadCB $OpenCB $CloseCB %PARSER_FLAGS
17 | 2 | 25µs | 1 | 179µs | ); # spent 179µs making 1 call to XML::LibXML::BEGIN@14
18 | 3 | 29µs | 2 | 84µs | # spent 47µs (10+37) within XML::LibXML::BEGIN@18 which was called # once (10µs+37µs) by XML::LibXML::SAX::BEGIN@17 at line 18 use Carp; # spent 47µs making 1 call to XML::LibXML::BEGIN@18 # spent 37µs making 1 call to Exporter::import
19 |  |  |  |  |
20 | 3 | 30µs | 2 | 75µs | # spent 42µs (9+33) within XML::LibXML::BEGIN@20 which was called # once (9µs+33µs) by XML::LibXML::SAX::BEGIN@17 at line 20 use constant XML_XMLNS_NS => 'http://www.w3.org/2000/xmlns/'; # spent 42µs making 1 call to XML::LibXML::BEGIN@20 # spent 33µs making 1 call to constant::import
21 | 3 | 49µs | 2 | 85µs | # spent 46µs (7+39) within XML::LibXML::BEGIN@21 which was called # once (7µs+39µs) by XML::LibXML::SAX::BEGIN@17 at line 21 use constant XML_XML_NS => 'http://www.w3.org/XML/1998/namespace'; # spent 46µs making 1 call to XML::LibXML::BEGIN@21 # spent 39µs making 1 call to constant::import
22 |  |  |  |  |
23 | 3 | 122µs | 1 | 6.57ms | # spent 6.57ms (1.61+4.96) within XML::LibXML::BEGIN@23 which was called # once (1.61ms+4.96ms) by XML::LibXML::SAX::BEGIN@17 at line 23 use XML::LibXML::Error; # spent 6.57ms making 1 call to XML::LibXML::BEGIN@23
24 | 3 | 101µs | 1 | 2.07ms | # spent 2.07ms (566µs+1.51) within XML::LibXML::BEGIN@24 which was called # once (566µs+1.51ms) by XML::LibXML::SAX::BEGIN@17 at line 24 use XML::LibXML::NodeList; # spent 2.07ms making 1 call to XML::LibXML::BEGIN@24
25 | 3 | 94µs | 1 | 788µs | # spent 788µs (647+142) within XML::LibXML::BEGIN@25 which was called # once (647µs+142µs) by XML::LibXML::SAX::BEGIN@17 at line 25 use XML::LibXML::XPathContext; # spent 788µs making 1 call to XML::LibXML::BEGIN@25
26 | 3 | 48µs | 2 | 42µs | # spent 27µs (12+15) within XML::LibXML::BEGIN@26 which was called # once (12µs+15µs) by XML::LibXML::SAX::BEGIN@17 at line 26 use IO::Handle; # for FH reads called as methods # spent 27µs making 1 call to XML::LibXML::BEGIN@26 # spent 15µs making 1 call to Exporter::import
27 |  |  |  |  |
28 |  |  |  |  | # spent 1.09ms (67µs+1.02) within XML::LibXML::BEGIN@28 which was called # once (67µs+1.02ms) by XML::LibXML::SAX::BEGIN@17 at line 153 BEGIN {
29 | 1 | 500ns |  |  | $VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
30 | 1 | 100ns |  |  | $ABI_VERSION = 2;
31 | 1 | 400ns |  |  | require Exporter;
32 | 1 | 300ns |  |  | require DynaLoader;
33 | 1 | 12µs |  |  | @ISA = qw(DynaLoader Exporter);
34 |  |  |  |  |
35 | 3 | 256µs | 2 | 134µs | # spent 70µs (7+64) within XML::LibXML::BEGIN@35 which was called # once (7µs+64µs) by XML::LibXML::SAX::BEGIN@17 at line 35 use vars qw($__PROXY_NODE_REGISTRY $__threads_shared $__PROXY_NODE_REGISTRY_MUTEX $__loaded); # spent 70µs making 1 call to XML::LibXML::BEGIN@35 # spent 64µs making 1 call to vars::import
36 |  |  |  |  |
37 |  |  |  |  | sub VERSION {
38 |  |  |  |  | my $class = shift;
39 |  |  |  |  | my ($caller) = caller;
40 |  |  |  |  | my $req_abi = $ABI_VERSION;
41 |  |  |  |  | if (UNIVERSAL::can($caller,'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 |  |  |  |  | }
47 |  |  |  |  | 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 |  |  |  |  | }
51 |  |  |  |  | return $class->UNIVERSAL::VERSION(@_)
52 |  |  |  |  | }
53 |  |  |  |  |
54 |  |  |  |  | #-------------------------------------------------------------------------#
55 |  |  |  |  | # export information #
56 |  |  |  |  | #-------------------------------------------------------------------------#
57 | 1 | 14µ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 = (
117 | 1 | 9µs |  |  | @{$EXPORT_TAGS{all}},
118 |  |  |  |  | );
119 |  |  |  |  |
120 |  |  |  |  | @EXPORT = (
121 | 1 | 9µs |  |  | @{$EXPORT_TAGS{all}},
122 |  |  |  |  | );
123 |  |  |  |  |
124 |  |  |  |  | #-------------------------------------------------------------------------#
125 |  |  |  |  | # initialization of the global variables #
126 |  |  |  |  | #-------------------------------------------------------------------------#
127 | 1 | 100ns |  |  | $skipDTD = 0;
128 | 1 | 100ns |  |  | $skipXMLDeclaration = 0;
129 | 1 | 0s |  |  | $setTagCompression = 0;
130 |  |  |  |  |
131 | 1 | 200ns |  |  | $MatchCB = undef;
132 | 1 | 0s |  |  | $ReadCB = undef;
133 | 1 | 0s |  |  | $OpenCB = undef;
134 | 1 | 0s |  |  | $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 |  |  |  |  | #-------------------------------------------------------------------------#
147 | 1 | 4µs | 1 | 1.02ms | bootstrap XML::LibXML $VERSION; # spent 1.02ms making 1 call to DynaLoader::bootstrap
148 | 1 | 6µs |  |  | undef &AUTOLOAD;
149 |  |  |  |  |
150 | 1 | 1µs |  |  | *encodeToUTF8 = \&XML::LibXML::Common::encodeToUTF8;
151 | 1 | 4µs |  |  | *decodeFromUTF8 = \&XML::LibXML::Common::decodeFromUTF8;
152 |  |  |  |  |
153 | 1 | 27µs | 1 | 1.09ms | } # BEGIN # spent 1.09ms making 1 call to XML::LibXML::BEGIN@28
154 |  |  |  |  |
155 |  |  |  |  |
156 |  |  |  |  | #-------------------------------------------------------------------------#
157 |  |  |  |  | # libxml2 node names (see also XML::LibXML::Common #
158 |  |  |  |  | #-------------------------------------------------------------------------#
159 | 3 | 31µs | 2 | 86µs | # spent 47µs (8+39) within XML::LibXML::BEGIN@159 which was called # once (8µs+39µs) by XML::LibXML::SAX::BEGIN@17 at line 159 use constant XML_ELEMENT_NODE => 1; # spent 47µs making 1 call to XML::LibXML::BEGIN@159 # spent 39µs making 1 call to constant::import
160 | 3 | 23µs | 2 | 58µs | # spent 32µs (6+26) within XML::LibXML::BEGIN@160 which was called # once (6µs+26µs) by XML::LibXML::SAX::BEGIN@17 at line 160 use constant XML_ATTRIBUTE_NODE => 2; # spent 32µs making 1 call to XML::LibXML::BEGIN@160 # spent 26µs making 1 call to constant::import
161 | 3 | 21µs | 2 | 53µs | # spent 30µs (6+24) within XML::LibXML::BEGIN@161 which was called # once (6µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 161 use constant XML_TEXT_NODE => 3; # spent 30µs making 1 call to XML::LibXML::BEGIN@161 # spent 24µs making 1 call to constant::import
162 | 3 | 21µs | 2 | 53µs | # spent 29µs (6+24) within XML::LibXML::BEGIN@162 which was called # once (6µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 162 use constant XML_CDATA_SECTION_NODE => 4; # spent 29µs making 1 call to XML::LibXML::BEGIN@162 # spent 24µs making 1 call to constant::import
163 | 3 | 30µs | 2 | 51µs | # spent 28µs (5+23) within XML::LibXML::BEGIN@163 which was called # once (5µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 163 use constant XML_ENTITY_REF_NODE => 5; # spent 28µs making 1 call to XML::LibXML::BEGIN@163 # spent 23µs making 1 call to constant::import
164 | 3 | 22µs | 2 | 55µs | # spent 30µs (6+24) within XML::LibXML::BEGIN@164 which was called # once (6µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 164 use constant XML_ENTITY_NODE => 6; # spent 30µs making 1 call to XML::LibXML::BEGIN@164 # spent 24µs making 1 call to constant::import
165 | 3 | 21µs | 2 | 52µs | # spent 29µs (6+23) within XML::LibXML::BEGIN@165 which was called # once (6µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 165 use constant XML_PI_NODE => 7; # spent 29µs making 1 call to XML::LibXML::BEGIN@165 # spent 23µs making 1 call to constant::import
166 | 3 | 23µs | 2 | 57µs | # spent 34µs (10+23) within XML::LibXML::BEGIN@166 which was called # once (10µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 166 use constant XML_COMMENT_NODE => 8; # spent 34µs making 1 call to XML::LibXML::BEGIN@166 # spent 23µs making 1 call to constant::import
167 | 3 | 22µs | 2 | 68µs | # spent 37µs (6+31) within XML::LibXML::BEGIN@167 which was called # once (6µs+31µs) by XML::LibXML::SAX::BEGIN@17 at line 167 use constant XML_DOCUMENT_NODE => 9; # spent 37µs making 1 call to XML::LibXML::BEGIN@167 # spent 31µs making 1 call to constant::import
168 | 3 | 24µs | 2 | 80µs | # spent 48µs (16+32) within XML::LibXML::BEGIN@168 which was called # once (16µs+32µs) by XML::LibXML::SAX::BEGIN@17 at line 168 use constant XML_DOCUMENT_TYPE_NODE => 10; # spent 48µs making 1 call to XML::LibXML::BEGIN@168 # spent 32µs making 1 call to constant::import
169 | 3 | 22µs | 2 | 56µs | # spent 31µs (6+25) within XML::LibXML::BEGIN@169 which was called # once (6µs+25µs) by XML::LibXML::SAX::BEGIN@17 at line 169 use constant XML_DOCUMENT_FRAG_NODE => 11; # spent 31µs making 1 call to XML::LibXML::BEGIN@169 # spent 25µs making 1 call to constant::import
170 | 3 | 20µs | 2 | 51µs | # spent 28µs (6+23) within XML::LibXML::BEGIN@170 which was called # once (6µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 170 use constant XML_NOTATION_NODE => 12; # spent 28µs making 1 call to XML::LibXML::BEGIN@170 # spent 23µs making 1 call to constant::import
171 | 3 | 20µs | 2 | 51µs | # spent 28µs (5+23) within XML::LibXML::BEGIN@171 which was called # once (5µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 171 use constant XML_HTML_DOCUMENT_NODE => 13; # spent 28µs making 1 call to XML::LibXML::BEGIN@171 # spent 23µs making 1 call to constant::import
172 | 3 | 21µs | 2 | 51µs | # spent 28µs (5+23) within XML::LibXML::BEGIN@172 which was called # once (5µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 172 use constant XML_DTD_NODE => 14; # spent 28µs making 1 call to XML::LibXML::BEGIN@172 # spent 23µs making 1 call to constant::import
173 | 3 | 22µs | 2 | 63µs | # spent 34µs (6+28) within XML::LibXML::BEGIN@173 which was called # once (6µs+28µs) by XML::LibXML::SAX::BEGIN@17 at line 173 use constant XML_ELEMENT_DECL => 15; # spent 34µs making 1 call to XML::LibXML::BEGIN@173 # spent 28µs making 1 call to constant::import
174 | 3 | 21µs | 2 | 53µs | # spent 29µs (6+24) within XML::LibXML::BEGIN@174 which was called # once (6µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 174 use constant XML_ATTRIBUTE_DECL => 16; # spent 29µs making 1 call to XML::LibXML::BEGIN@174 # spent 24µs making 1 call to constant::import
175 | 3 | 21µs | 2 | 51µs | # spent 28µs (6+23) within XML::LibXML::BEGIN@175 which was called # once (6µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 175 use constant XML_ENTITY_DECL => 17; # spent 28µs making 1 call to XML::LibXML::BEGIN@175 # spent 23µs making 1 call to constant::import
176 | 3 | 20µs | 2 | 51µs | # spent 28µs (5+23) within XML::LibXML::BEGIN@176 which was called # once (5µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 176 use constant XML_NAMESPACE_DECL => 18; # spent 28µs making 1 call to XML::LibXML::BEGIN@176 # spent 23µs making 1 call to constant::import
177 | 3 | 29µs | 2 | 51µs | # spent 28µs (6+23) within XML::LibXML::BEGIN@177 which was called # once (6µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 177 use constant XML_XINCLUDE_START => 19; # spent 28µs making 1 call to XML::LibXML::BEGIN@177 # spent 23µs making 1 call to constant::import
178 | 3 | 249µs | 2 | 56µs | # spent 31µs (7+25) within XML::LibXML::BEGIN@178 which was called # once (7µs+25µs) by XML::LibXML::SAX::BEGIN@17 at line 178 use constant XML_XINCLUDE_END => 20; # spent 31µs making 1 call to XML::LibXML::BEGIN@178 # spent 25µs making 1 call to constant::import
179 |  |  |  |  |
180 |  |  |  |  |
181 |  |  |  |  | # spent 811µs (54+757) within XML::LibXML::import which was called 3 times, avg 270µs/call: # once (35µs+329µs) by XML::LibXML::Element::BEGIN@1480 at line 1480 # once (12µs+273µs) by XML::LibXML::NamedNodeMap::BEGIN@1831 at line 1831 # once (7µs+155µs) by XML::LibXML::SAX::BEGIN@17 at line 17 of XML/LibXML/SAX.pm sub import {
182 | 3 | 2µs |  |  | my $package=shift;
183 | 3 | 23µs | 3 | 600ns | if (grep /^:threads_shared$/, @_) { # spent 600ns making 3 calls to XML::LibXML::CORE:match, avg 200ns/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) {
204 | 1 | 400ns |  |  | $__threads_shared=0 if not defined $__threads_shared;
205 |  |  |  |  | }
206 | 3 | 25µs | 6 | 59µs | __PACKAGE__->export_to_level(1,$package,grep !/^:threads(_shared)?$/,@_); # spent 59µs making 3 calls to Exporter::export_to_level, avg 20µs/call # spent 300ns making 3 calls to XML::LibXML::CORE:match, avg 100ns/call
207 |  |  |  |  | }
208 |  |  |  |  |
209 |  |  |  |  | sub threads_shared_enabled {
210 |  |  |  |  | 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 |  |  |  |  | {
221 | 2 | 25µs | 2 | 15µs | my ($runtime_version) = LIBXML_RUNTIME_VERSION() =~ /^(\d+)/; # spent 12µs making 1 call to XML::LibXML::LIBXML_RUNTIME_VERSION # spent 2µs making 1 call to XML::LibXML::CORE:match
222 | 1 | 10µs | 1 | 5µs | if ( $runtime_version < LIBXML_VERSION ) { # spent 5µ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 287µs (18+269) within XML::LibXML::BEGIN@234 which was called # once (18µs+269µs) by XML::LibXML::SAX::BEGIN@17 at line 257 use constant {
235 | 1 | 14µs | 1 | 269µs | XML_PARSE_RECOVER => 1, # recover on errors # spent 269µ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
257 | 2 | 38µs | 1 | 287µs | }; # spent 287µs making 1 call to XML::LibXML::BEGIN@234
258 |  |  |  |  |
259 | 3 | 3.55ms | 2 | 57µs | # spent 32µs (6+26) within XML::LibXML::BEGIN@259 which was called # once (6µs+26µs) by XML::LibXML::SAX::BEGIN@17 at line 259 use constant XML_LIBXML_PARSE_DEFAULTS => ( XML_PARSE_NODICT | XML_PARSE_HUGE | XML_PARSE_DTDLOAD | XML_PARSE_NOENT ); # spent 32µs making 1 call to XML::LibXML::BEGIN@259 # spent 26µ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 |  |  |  |  |
264 | 1 | 7µ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 |  |  |  |  |
286 | 1 | 3µs |  |  | my %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 |  |  |  |  |
295 |  |  |  |  | sub _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 |  |  |  |  |
327 | 1 | 5µs |  |  | my %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 36µs within XML::LibXML::new which was called 3 times, avg 12µs/call: # 3 times (36µs+0s) by XML::LibXML::SAX::_parse_string at line 48 of XML/LibXML/SAX.pm, avg 12µs/call sub new {
346 | 3 | 2µs |  |  | my $class = shift;
347 | 3 | 11µs |  |  | my $self = bless {
348 |  |  |  |  | }, $class;
349 | 3 | 3µ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 {
377 | 3 | 5µs |  |  | $self->{XML_LIBXML_PARSER_OPTIONS} = XML_LIBXML_PARSE_DEFAULTS;
378 |  |  |  |  | }
379 | 3 | 2µs |  |  | if ( defined $self->{Handler} ) {
380 |  |  |  |  | $self->set_handler( $self->{Handler} );
381 |  |  |  |  | }
382 |  |  |  |  |
383 | 3 | 3µs |  |  | $self->{_State_} = 0;
384 | 3 | 12µs |  |  | return $self;
385 |  |  |  |  | }
386 |  |  |  |  |
387 |  |  |  |  | sub _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
405 |  |  |  |  | sub CLONE {
406 |  |  |  |  | if ($XML::LibXML::__threads_shared) {
407 |  |  |  |  | XML::LibXML::_CLONE( $_[0] );
408 |  |  |  |  | }
409 |  |  |  |  | }
410 |  |  |  |  |
411 |  |  |  |  | sub CLONE_SKIP {
412 |  |  |  |  | return $XML::LibXML::__threads_shared ? 0 : 1;
413 |  |  |  |  | }
414 |  |  |  |  |
415 |  |  |  |  | sub __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 |  |  |  |  |
424 |  |  |  |  | sub 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 |  |  |  |  |
444 |  |  |  |  | sub 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 25µs within XML::LibXML::match_callback which was called 6 times, avg 4µs/call: # 3 times (16µs+0s) by XML::LibXML::_init_callbacks at line 726, avg 6µs/call # 3 times (9µs+0s) by XML::LibXML::_cleanup_callbacks at line 740, avg 3µs/call sub match_callback {
455 | 6 | 3µs |  |  | my $self = shift;
456 | 6 | 4µs |  |  | if ( ref $self ) {
457 | 6 | 2µs |  |  | if ( scalar @_ ) {
458 |  |  |  |  | $self->{XML_LIBXML_MATCH_CB} = shift;
459 |  |  |  |  | $self->{XML_LIBXML_CALLBACK_STACK} = undef;
460 |  |  |  |  | }
461 | 6 | 22µs |  |  | return $self->{XML_LIBXML_MATCH_CB};
462 |  |  |  |  | }
463 |  |  |  |  | else {
464 |  |  |  |  | $MatchCB = shift if scalar @_;
465 |  |  |  |  | return $MatchCB;
466 |  |  |  |  | }
467 |  |  |  |  | }
468 |  |  |  |  |
469 |  |  |  |  | # spent 13µs within XML::LibXML::read_callback which was called 3 times, avg 4µs/call: # 3 times (13µs+0s) by XML::LibXML::_init_callbacks at line 728, avg 4µs/call sub read_callback {
470 | 3 | 1µs |  |  | my $self = shift;
471 | 3 | 2µs |  |  | if ( ref $self ) {
472 | 3 | 2µs |  |  | if ( scalar @_ ) {
473 |  |  |  |  | $self->{XML_LIBXML_READ_CB} = shift;
474 |  |  |  |  | $self->{XML_LIBXML_CALLBACK_STACK} = undef;
475 |  |  |  |  | }
476 | 3 | 10µs |  |  | return $self->{XML_LIBXML_READ_CB};
477 |  |  |  |  | }
478 |  |  |  |  | else {
479 |  |  |  |  | $ReadCB = shift if scalar @_;
480 |  |  |  |  | return $ReadCB;
481 |  |  |  |  | }
482 |  |  |  |  | }
483 |  |  |  |  |
484 |  |  |  |  | # spent 13µs within XML::LibXML::close_callback which was called 3 times, avg 4µs/call: # 3 times (13µs+0s) by XML::LibXML::_init_callbacks at line 729, avg 4µs/call sub close_callback {
485 | 3 | 1µs |  |  | my $self = shift;
486 | 3 | 3µs |  |  | if ( ref $self ) {
487 | 3 | 2µs |  |  | if ( scalar @_ ) {
488 |  |  |  |  | $self->{XML_LIBXML_CLOSE_CB} = shift;
489 |  |  |  |  | $self->{XML_LIBXML_CALLBACK_STACK} = undef;
490 |  |  |  |  | }
491 | 3 | 12µs |  |  | return $self->{XML_LIBXML_CLOSE_CB};
492 |  |  |  |  | }
493 |  |  |  |  | else {
494 |  |  |  |  | $CloseCB = shift if scalar @_;
495 |  |  |  |  | return $CloseCB;
496 |  |  |  |  | }
497 |  |  |  |  | }
498 |  |  |  |  |
499 |  |  |  |  | # spent 14µs within XML::LibXML::open_callback which was called 3 times, avg 5µs/call: # 3 times (14µs+0s) by XML::LibXML::_init_callbacks at line 727, avg 5µs/call sub open_callback {
500 | 3 | 2µs |  |  | my $self = shift;
501 | 3 | 2µs |  |  | if ( ref $self ) {
502 | 3 | 1µs |  |  | if ( scalar @_ ) {
503 |  |  |  |  | $self->{XML_LIBXML_OPEN_CB} = shift;
504 |  |  |  |  | $self->{XML_LIBXML_CALLBACK_STACK} = undef;
505 |  |  |  |  | }
506 | 3 | 11µs |  |  | return $self->{XML_LIBXML_OPEN_CB};
507 |  |  |  |  | }
508 |  |  |  |  | else {
509 |  |  |  |  | $OpenCB = shift if scalar @_;
510 |  |  |  |  | return $OpenCB;
511 |  |  |  |  | }
512 |  |  |  |  | }
513 |  |  |  |  |
514 |  |  |  |  | sub 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 |  |  |  |  | sub __parser_option {
540 |  |  |  |  | my ($self, $opt) = @_;
541 |  |  |  |  | if (@_>2) {
542 |  |  |  |  | if ($_[2]) {
543 |  |  |  |  | $self->{XML_LIBXML_PARSER_OPTIONS} |= $opt;
544 |  |  |  |  | return 1;
545 |  |  |  |  | } else {
546 |  |  |  |  | $self->{XML_LIBXML_PARSER_OPTIONS} &= ~$opt;
547 |  |  |  |  | return 0;
548 |  |  |  |  | }
549 |  |  |  |  | } else {
550 |  |  |  |  | return ($self->{XML_LIBXML_PARSER_OPTIONS} & $opt) ? 1 : 0;
551 |  |  |  |  | }
552 |  |  |  |  | }
553 |  |  |  |  |
554 |  |  |  |  | sub option_exists {
555 |  |  |  |  | my ($self,$name)=@_;
556 |  |  |  |  | return ($PARSER_FLAGS{$name} || $OUR_FLAGS{$name}) ? 1 : 0;
557 |  |  |  |  | }
558 |  |  |  |  | sub 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 |  |  |  |  | }
567 |  |  |  |  | sub 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 |  |  |  |  | }
576 |  |  |  |  | sub 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 |  |  |  |  |
590 |  |  |  |  | sub validation {
591 |  |  |  |  | my $self = shift;
592 |  |  |  |  | return $self->__parser_option(XML_PARSE_DTDVALID,@_);
593 |  |  |  |  | }
594 |  |  |  |  |
595 |  |  |  |  | sub recover {
596 |  |  |  |  | my $self = shift;
597 |  |  |  |  | if (scalar @_) {
598 |  |  |  |  | $self->{XML_LIBXML_RECOVER} = $_[0];
599 |  |  |  |  | $self->__parser_option(XML_PARSE_RECOVER,@_);
600 |  |  |  |  | }
601 |  |  |  |  | return $self->{XML_LIBXML_RECOVER};
602 |  |  |  |  | }
603 |  |  |  |  |
604 |  |  |  |  | sub recover_silently {
605 |  |  |  |  | my $self = shift;
606 |  |  |  |  | my $arg = shift;
607 |  |  |  |  | (($arg == 1) ? $self->recover(2) : $self->recover($arg)) if defined($arg);
608 |  |  |  |  | return (($self->recover()||0) == 2) ? 1 : 0;
609 |  |  |  |  | }
610 |  |  |  |  |
611 |  |  |  |  | sub 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 |  |  |  |  |
619 |  |  |  |  | sub 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 |  |  |  |  |
629 |  |  |  |  | sub pedantic_parser {
630 |  |  |  |  | my $self = shift;
631 |  |  |  |  | return $self->__parser_option(XML_PARSE_PEDANTIC,@_);
632 |  |  |  |  | }
633 |  |  |  |  |
634 |  |  |  |  | sub line_numbers {
635 |  |  |  |  | my $self = shift;
636 |  |  |  |  | $self->{XML_LIBXML_LINENUMBERS} = shift if scalar @_;
637 |  |  |  |  | return $self->{XML_LIBXML_LINENUMBERS};
638 |  |  |  |  | }
639 |  |  |  |  |
640 |  |  |  |  | sub no_network {
641 |  |  |  |  | my $self = shift;
642 |  |  |  |  | return $self->__parser_option(XML_PARSE_NONET,@_);
643 |  |  |  |  | }
644 |  |  |  |  |
645 |  |  |  |  | sub load_ext_dtd {
646 |  |  |  |  | my $self = shift;
647 |  |  |  |  | return $self->__parser_option(XML_PARSE_DTDLOAD,@_);
648 |  |  |  |  | }
649 |  |  |  |  |
650 |  |  |  |  | sub complete_attributes {
651 |  |  |  |  | my $self = shift;
652 |  |  |  |  | return $self->__parser_option(XML_PARSE_DTDATTR,@_);
653 |  |  |  |  | }
654 |  |  |  |  |
655 |  |  |  |  | sub expand_xinclude {
656 |  |  |  |  | my $self = shift;
657 |  |  |  |  | return $self->__parser_option(XML_PARSE_XINCLUDE,@_);
658 |  |  |  |  | }
659 |  |  |  |  |
660 |  |  |  |  | sub base_uri {
661 |  |  |  |  | my $self = shift;
662 |  |  |  |  | $self->{XML_LIBXML_BASE_URI} = shift if scalar @_;
663 |  |  |  |  | return $self->{XML_LIBXML_BASE_URI};
664 |  |  |  |  | }
665 |  |  |  |  |
666 |  |  |  |  | sub gdome_dom {
667 |  |  |  |  | my $self = shift;
668 |  |  |  |  | $self->{XML_LIBXML_GDOME} = shift if scalar @_;
669 |  |  |  |  | return $self->{XML_LIBXML_GDOME};
670 |  |  |  |  | }
671 |  |  |  |  |
672 |  |  |  |  | sub 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 |  |  |  |  | #-------------------------------------------------------------------------#
680 |  |  |  |  | # spent 35µs within XML::LibXML::set_handler which was called 6 times, avg 6µs/call: # 3 times (21µs+0s) by XML::LibXML::SAX::_parse at line 78 of XML/LibXML/SAX.pm, avg 7µs/call # 3 times (15µs+0s) by XML::LibXML::SAX::_parse at line 88 of XML/LibXML/SAX.pm, avg 5µs/call sub set_handler {
681 | 6 | 2µs |  |  | my $self = shift;
682 | 6 | 23µs |  |  | if ( defined $_[0] ) {
683 | 3 | 3µs |  |  | $self->{HANDLER} = $_[0];
684 |  |  |  |  |
685 | 3 | 2µs |  |  | $self->{SAX_ELSTACK} = [];
686 | 3 | 4µs |  |  | $self->{SAX} = {State => 0};
687 |  |  |  |  | }
688 |  |  |  |  | else {
689 |  |  |  |  | # undef SAX handling
690 | 3 | 3µs |  |  | $self->{SAX_ELSTACK} = [];
691 | 3 | 3µs |  |  | delete $self->{HANDLER};
692 | 3 | 2µs |  |  | delete $self->{SAX};
693 |  |  |  |  | }
694 |  |  |  |  | }
695 |  |  |  |  |
696 |  |  |  |  | #-------------------------------------------------------------------------#
697 |  |  |  |  | # helper functions #
698 |  |  |  |  | #-------------------------------------------------------------------------#
699 |  |  |  |  | sub _auto_expand {
700 |  |  |  |  | my ( $self, $result, $uri ) = @_;
701 |  |  |  |  |
702 |  |  |  |  | $result->setBaseURI( $uri ) if defined $uri;
703 |  |  |  |  |
704 |  |  |  |  | if ( $self->expand_xinclude ) {
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 |  |  |  |  | }
715 |  |  |  |  | return $result;
716 |  |  |  |  | }
717 |  |  |  |  |
718 |  |  |  |  | # spent 244µs (113+130) within XML::LibXML::_init_callbacks which was called 3 times, avg 81µs/call: # 3 times (113µs+130µs) by XML::LibXML::parse_string at line 831, avg 81µs/call sub _init_callbacks {
719 | 3 | 2µs |  |  | my $self = shift;
720 | 3 | 2µs |  |  | my $icb = $self->{XML_LIBXML_CALLBACK_STACK};
721 | 3 | 2µs |  |  | unless ( defined $icb ) {
722 | 3 | 22µs | 3 | 20µs | $self->{XML_LIBXML_CALLBACK_STACK} = XML::LibXML::InputCallback->new(); # spent 20µs making 3 calls to XML::LibXML::InputCallback::new, avg 6µs/call
723 | 3 | 2µs |  |  | $icb = $self->{XML_LIBXML_CALLBACK_STACK};
724 |  |  |  |  | }
725 |  |  |  |  |
726 | 3 | 9µs | 3 | 16µs | my $mcb = $self->match_callback(); # spent 16µs making 3 calls to XML::LibXML::match_callback, avg 6µs/call
727 | 3 | 10µs | 3 | 14µs | my $ocb = $self->open_callback(); # spent 14µs making 3 calls to XML::LibXML::open_callback, avg 5µs/call
728 | 3 | 8µs | 3 | 13µs | my $rcb = $self->read_callback(); # spent 13µs making 3 calls to XML::LibXML::read_callback, avg 4µs/call
729 | 3 | 8µs | 3 | 13µs | my $ccb = $self->close_callback(); # spent 13µs making 3 calls to XML::LibXML::close_callback, avg 4µs/call
730 |  |  |  |  |
731 | 3 | 2µs |  |  | if ( defined $mcb and defined $ocb and defined $rcb and defined $ccb ) {
732 |  |  |  |  | $icb->register_callbacks( [$mcb, $ocb, $rcb, $ccb] );
733 |  |  |  |  | }
734 | 3 | 18µs | 3 | 54µs | $icb->init_callbacks(); # spent 54µs making 3 calls to XML::LibXML::InputCallback::init_callbacks, avg 18µs/call
735 |  |  |  |  | }
736 |  |  |  |  |
737 |  |  |  |  | # spent 100µs (45+56) within XML::LibXML::_cleanup_callbacks which was called 3 times, avg 33µs/call: # 3 times (45µs+56µs) by XML::LibXML::parse_string at line 858, avg 33µs/call sub _cleanup_callbacks {
738 | 3 | 1µs |  |  | my $self = shift;
739 | 3 | 8µs | 3 | 30µs | $self->{XML_LIBXML_CALLBACK_STACK}->cleanup_callbacks(); # spent 30µs making 3 calls to XML::LibXML::InputCallback::cleanup_callbacks, avg 10µs/call
740 | 3 | 5µs | 3 | 9µs | my $mcb = $self->match_callback(); # spent 9µs making 3 calls to XML::LibXML::match_callback, avg 3µs/call
741 | 3 | 18µs | 3 | 17µs | $self->{XML_LIBXML_CALLBACK_STACK}->unregister_callbacks( [$mcb] ); # spent 17µs making 3 calls to XML::LibXML::InputCallback::unregister_callbacks, avg 6µs/call
742 |  |  |  |  | }
743 |  |  |  |  |
744 |  |  |  |  | sub __read {
745 |  |  |  |  | read($_[0], $_[1], $_[2]);
746 |  |  |  |  | }
747 |  |  |  |  |
748 |  |  |  |  | sub __write {
749 |  |  |  |  | if ( ref( $_[0] ) ) {
750 |  |  |  |  | $_[0]->write( $_[1], $_[2] );
751 |  |  |  |  | }
752 |  |  |  |  | else {
753 |  |  |  |  | $_[0]->write( $_[1] );
754 |  |  |  |  | }
755 |  |  |  |  | }
756 |  |  |  |  |
757 |  |  |  |  | sub 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 |  |  |  |  |
785 |  |  |  |  | sub 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 3.49ms (81µs+3.41) within XML::LibXML::parse_string which was called 3 times, avg 1.16ms/call: # 3 times (81µs+3.41ms) by XML::LibXML::SAX::_parse at line 80 of XML/LibXML/SAX.pm, avg 1.16ms/call sub parse_string {
820 | 3 | 2µs |  |  | my $self = shift;
821 | 3 | 2µs |  |  | croak("parse_string is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
822 | 3 | 2µs |  |  | croak("parse already in progress") if $self->{_State_};
823 |  |  |  |  |
824 | 3 | 4µs |  |  | unless ( defined $_[0] and length $_[0] ) {
825 |  |  |  |  | croak("Empty String");
826 |  |  |  |  | }
827 |  |  |  |  |
828 | 3 | 2µs |  |  | $self->{_State_} = 1;
829 | 3 | 600ns |  |  | my $result;
830 |  |  |  |  |
831 | 3 | 8µs | 3 | 244µs | $self->_init_callbacks(); # spent 244µs making 3 calls to XML::LibXML::_init_callbacks, avg 81µs/call
832 |  |  |  |  |
833 | 3 | 3µs |  |  | if ( defined $self->{SAX} ) {
834 | 3 | 3µs |  |  | my $string = shift;
835 | 3 | 4µs |  |  | $self->{SAX_ELSTACK} = [];
836 | 6 | 1.05ms | 113 | 4.97ms | eval { $result = $self->_parse_sax_string($string); }; # spent 3.06ms making 3 calls to XML::LibXML::_parse_sax_string, avg 1.02ms/call # spent 712µs making 35 calls to XML::SAX::Base::start_element, avg 20µs/call # spent 477µs making 28 calls to XML::SAX::Base::characters, avg 17µs/call # spent 410µs making 35 calls to XML::SAX::Base::end_element, avg 12µs/call # spent 102µs making 3 calls to XML::SAX::Base::start_document, avg 34µs/call # spent 74µs making 3 calls to XML::SAX::Base::end_prefix_mapping, avg 25µs/call # spent 68µs making 3 calls to XML::SAX::Base::xml_decl, avg 23µs/call # spent 66µs making 3 calls to XML::SAX::Base::start_prefix_mapping, avg 22µs/call
837 | 3 | 2µs |  |  | my $err = $@;
838 | 3 | 2µs |  |  | $self->{_State_} = 0;
839 | 3 | 1µs |  |  | if ($err) {
840 |  |  |  |  | chomp $err unless ref $err;
841 |  |  |  |  | $self->_cleanup_callbacks();
842 |  |  |  |  | croak $err;
843 |  |  |  |  | }
844 |  |  |  |  | }
845 |  |  |  |  | else {
846 |  |  |  |  | eval { $result = $self->_parse_string( @_ ); };
847 |  |  |  |  |
848 |  |  |  |  | my $err = $@;
849 |  |  |  |  | $self->{_State_} = 0;
850 |  |  |  |  | if ($err) {
851 |  |  |  |  | chomp $err unless ref $err;
852 |  |  |  |  | $self->_cleanup_callbacks();
853 |  |  |  |  | croak $err;
854 |  |  |  |  | }
855 |  |  |  |  |
856 |  |  |  |  | $result = $self->_auto_expand( $result, $self->{XML_LIBXML_BASE_URI} );
857 |  |  |  |  | }
858 | 3 | 12µs | 3 | 100µs | $self->_cleanup_callbacks(); # spent 100µs making 3 calls to XML::LibXML::_cleanup_callbacks, avg 33µs/call
859 |  |  |  |  |
860 | 3 | 8µs |  |  | return $result;
861 |  |  |  |  | }
862 |  |  |  |  |
863 |  |  |  |  | sub 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 |  |  |  |  | sub parse_file {
902 |  |  |  |  | my $self = shift;
903 |  |  |  |  | croak("parse_file is not a class method! Create a parser object with XML::LibXML->new first!") unless ref $self;
904 |  |  |  |  | croak("parse already in progress") if $self->{_State_};
905 |  |  |  |  |
906 |  |  |  |  | $self->{_State_} = 1;
907 |  |  |  |  | my $result;
908 |  |  |  |  |
909 |  |  |  |  | $self->_init_callbacks();
910 |  |  |  |  |
911 |  |  |  |  | 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 {
923 |  |  |  |  | eval { $result = $self->_parse_file(@_); };
924 |  |  |  |  | my $err = $@;
925 |  |  |  |  | $self->{_State_} = 0;
926 |  |  |  |  | if ($err) {
927 |  |  |  |  | chomp $err unless ref $err;
928 |  |  |  |  | $self->_cleanup_callbacks();
929 |  |  |  |  | croak $err;
930 |  |  |  |  | }
931 |  |  |  |  |
932 |  |  |  |  | $result = $self->_auto_expand( $result );
933 |  |  |  |  | }
934 |  |  |  |  | $self->_cleanup_callbacks();
935 |  |  |  |  |
936 |  |  |  |  | return $result;
937 |  |  |  |  | }
938 |  |  |  |  |
939 |  |  |  |  | sub 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 |  |  |  |  |
984 |  |  |  |  | sub 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
1001 |  |  |  |  | sub 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
1026 |  |  |  |  | sub 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 |  |  |  |  |
1050 |  |  |  |  | sub _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 |  |  |  |  |
1071 |  |  |  |  | sub 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 |  |  |  |  |
1101 |  |  |  |  | sub 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 |  |  |  |  |
1125 |  |  |  |  | sub 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 |  |  |  |  | #-------------------------------------------------------------------------#
1151 |  |  |  |  | sub 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 |  |  |  |  |
1166 |  |  |  |  | sub 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!
1190 |  |  |  |  | sub 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 |  |  |  |  |
1209 |  |  |  |  | sub 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 |  |  |  |  |
1234 | 1 | 0s |  |  | 1;
1235 |  |  |  |  |
1236 |  |  |  |  | #-------------------------------------------------------------------------#
1237 |  |  |  |  | # XML::LibXML::Node Interface #
1238 |  |  |  |  | #-------------------------------------------------------------------------#
1239 |  |  |  |  | package XML::LibXML::Node;
1240 |  |  |  |  |
1241 |  |  |  |  | sub CLONE_SKIP {
1242 |  |  |  |  | return $XML::LibXML::__threads_shared ? 0 : 1;
1243 |  |  |  |  | }
1244 |  |  |  |  |
1245 |  |  |  |  | sub isSupported {
1246 |  |  |  |  | my $self = shift;
1247 |  |  |  |  | my $feature = shift;
1248 |  |  |  |  | return $self->can($feature) ? 1 : 0;
1249 |  |  |  |  | }
1250 |  |  |  |  |
1251 |  |  |  |  | sub getChildNodes { my $self = shift; return $self->childNodes(); }
1252 |  |  |  |  |
1253 |  |  |  |  | sub childNodes {
1254 |  |  |  |  | my $self = shift;
1255 |  |  |  |  | my @children = $self->_childNodes(0);
1256 |  |  |  |  | return wantarray ? @children : XML::LibXML::NodeList->new_from_ref(\@children , 1);
1257 |  |  |  |  | }
1258 |  |  |  |  |
1259 |  |  |  |  | sub 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 |  |  |  |  | sub attributes {
1266 |  |  |  |  | my $self = shift;
1267 |  |  |  |  | my @attr = $self->_attributes();
1268 |  |  |  |  | return wantarray ? @attr : XML::LibXML::NamedNodeMap->new( @attr );
1269 |  |  |  |  | }
1270 |  |  |  |  |
1271 |  |  |  |  |
1272 |  |  |  |  | sub 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 |  |  |  |  |
1283 |  |  |  |  | sub exists {
1284 |  |  |  |  | my ($node, $xpath) = @_;
1285 |  |  |  |  | my (undef, $value) = $node->_find($xpath,1);
1286 |  |  |  |  | return $value;
1287 |  |  |  |  | }
1288 |  |  |  |  |
1289 |  |  |  |  | sub findvalue {
1290 |  |  |  |  | my ($node, $xpath) = @_;
1291 |  |  |  |  | my $res;
1292 |  |  |  |  | $res = $node->find($xpath);
1293 |  |  |  |  | return $res->to_literal->value;
1294 |  |  |  |  | }
1295 |  |  |  |  |
1296 |  |  |  |  | sub 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 |  |  |  |  |
1305 |  |  |  |  | sub 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 |  |  |  |  |
1314 |  |  |  |  | sub setOwnerDocument {
1315 |  |  |  |  | my ( $self, $doc ) = @_;
1316 |  |  |  |  | $doc->adoptNode( $self );
1317 |  |  |  |  | }
1318 |  |  |  |  |
1319 |  |  |  |  | sub 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 |  |  |  |  | }
1328 |  |  |  |  | sub 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 |  |  |  |  |
1349 | 1 | 1µs |  |  | *serialize_c14n = \&toStringC14N;
1350 | 1 | 400ns |  |  | *serialize_exc_c14n = \&toStringEC14N;
1351 |  |  |  |  |
1352 | 1 | 0s |  |  | 1;
1353 |  |  |  |  |
1354 |  |  |  |  | #-------------------------------------------------------------------------#
1355 |  |  |  |  | # XML::LibXML::Document Interface #
1356 |  |  |  |  | #-------------------------------------------------------------------------#
1357 |  |  |  |  | package XML::LibXML::Document;
1358 |  |  |  |  |
1359 | 3 | 332µs | 2 | 58µs | # spent 33µs (9+24) within XML::LibXML::Document::BEGIN@1359 which was called # once (9µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 1359 use vars qw(@ISA); # spent 33µs making 1 call to XML::LibXML::Document::BEGIN@1359 # spent 24µs making 1 call to vars::import
1360 | 1 | 12µs |  |  | @ISA = ('XML::LibXML::Node');
1361 |  |  |  |  |
1362 |  |  |  |  | sub actualEncoding {
1363 |  |  |  |  | my $doc = shift;
1364 |  |  |  |  | my $enc = $doc->encoding;
1365 |  |  |  |  | return (defined $enc and length $enc) ? $enc : 'UTF-8';
1366 |  |  |  |  | }
1367 |  |  |  |  |
1368 |  |  |  |  | sub 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 |  |  |  |  |
1380 |  |  |  |  | sub 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 |  |  |  |  |
1402 |  |  |  |  | sub serialize {
1403 |  |  |  |  | my $self = shift;
1404 |  |  |  |  | return $self->toString( @_ );
1405 |  |  |  |  | }
1406 |  |  |  |  |
1407 |  |  |  |  | #-------------------------------------------------------------------------#
1408 |  |  |  |  | # bad style xinclude processing #
1409 |  |  |  |  | #-------------------------------------------------------------------------#
1410 |  |  |  |  | sub process_xinclude {
1411 |  |  |  |  | my $self = shift;
1412 |  |  |  |  | my $opts = shift;
1413 |  |  |  |  | XML::LibXML->new->processXIncludes( $self, $opts );
1414 |  |  |  |  | }
1415 |  |  |  |  |
1416 |  |  |  |  | sub 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 |  |  |  |  |
1435 |  |  |  |  | sub insertPI {
1436 |  |  |  |  | my $self = shift;
1437 |  |  |  |  | $self->insertProcessingInstruction( @_ );
1438 |  |  |  |  | }
1439 |  |  |  |  |
1440 |  |  |  |  | #-------------------------------------------------------------------------#
1441 |  |  |  |  | # DOM L3 Document functions.
1442 |  |  |  |  | # added after robins implicit feature requst
1443 |  |  |  |  | #-------------------------------------------------------------------------#
1444 | 1 | 600ns |  |  | *getElementsByTagName = \&XML::LibXML::Element::getElementsByTagName;
1445 | 1 | 300ns |  |  | *getElementsByTagNameNS = \&XML::LibXML::Element::getElementsByTagNameNS;
1446 | 1 | 300ns |  |  | *getElementsByLocalName = \&XML::LibXML::Element::getElementsByLocalName;
1447 |  |  |  |  |
1448 | 1 | 0s |  |  | 1;
1449 |  |  |  |  |
1450 |  |  |  |  | #-------------------------------------------------------------------------#
1451 |  |  |  |  | # XML::LibXML::DocumentFragment Interface #
1452 |  |  |  |  | #-------------------------------------------------------------------------#
1453 |  |  |  |  | package XML::LibXML::DocumentFragment;
1454 |  |  |  |  |
1455 | 3 | 111µs | 2 | 54µs | # spent 31µs (8+23) within XML::LibXML::DocumentFragment::BEGIN@1455 which was called # once (8µs+23µs) by XML::LibXML::SAX::BEGIN@17 at line 1455 use vars qw(@ISA); # spent 31µs making 1 call to XML::LibXML::DocumentFragment::BEGIN@1455 # spent 23µs making 1 call to vars::import
1456 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node');
1457 |  |  |  |  |
1458 |  |  |  |  | sub 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 |  |  |  |  |
1469 | 1 | 400ns |  |  | *serialize = \&toString;
1470 |  |  |  |  |
1471 | 1 | 0s |  |  | 1;
1472 |  |  |  |  |
1473 |  |  |  |  | #-------------------------------------------------------------------------#
1474 |  |  |  |  | # XML::LibXML::Element Interface #
1475 |  |  |  |  | #-------------------------------------------------------------------------#
1476 |  |  |  |  | package XML::LibXML::Element;
1477 |  |  |  |  |
1478 | 3 | 30µs | 2 | 48µs | # spent 28µs (8+20) within XML::LibXML::Element::BEGIN@1478 which was called # once (8µs+20µs) by XML::LibXML::SAX::BEGIN@17 at line 1478 use vars qw(@ISA); # spent 28µs making 1 call to XML::LibXML::Element::BEGIN@1478 # spent 20µs making 1 call to vars::import
1479 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node');
1480 | 3 | 25µs | 2 | 735µs | # spent 371µs (7+364) within XML::LibXML::Element::BEGIN@1480 which was called # once (7µs+364µs) by XML::LibXML::SAX::BEGIN@17 at line 1480 use XML::LibXML qw(:ns :libxml); # spent 371µs making 1 call to XML::LibXML::Element::BEGIN@1480 # spent 364µs making 1 call to XML::LibXML::import
1481 | 3 | 742µs | 2 | 90µs | # spent 49µs (8+41) within XML::LibXML::Element::BEGIN@1481 which was called # once (8µs+41µs) by XML::LibXML::SAX::BEGIN@17 at line 1481 use Carp; # spent 49µs making 1 call to XML::LibXML::Element::BEGIN@1481 # spent 41µs making 1 call to Exporter::import
1482 |  |  |  |  |
1483 |  |  |  |  | sub 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 |  |  |  |  |
1495 |  |  |  |  | sub 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 |  |  |  |  |
1508 |  |  |  |  | sub 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 |  |  |  |  |
1541 |  |  |  |  | sub 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 |  |  |  |  |
1553 |  |  |  |  | sub 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 declartions 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 |  |  |  |  |
1577 |  |  |  |  | sub 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 |  |  |  |  |
1584 |  |  |  |  | sub 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 |  |  |  |  |
1602 |  |  |  |  | sub 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 |  |  |  |  |
1614 |  |  |  |  | sub 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 |  |  |  |  |
1626 |  |  |  |  | sub 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 |  |  |  |  |
1641 |  |  |  |  | sub 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 |  |  |  |  |
1647 |  |  |  |  | sub 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 |  |  |  |  |
1656 | 1 | 0s |  |  | 1;
1657 |  |  |  |  |
1658 |  |  |  |  | #-------------------------------------------------------------------------#
1659 |  |  |  |  | # XML::LibXML::Text Interface #
1660 |  |  |  |  | #-------------------------------------------------------------------------#
1661 |  |  |  |  | package XML::LibXML::Text;
1662 |  |  |  |  |
1663 | 3 | 283µs | 2 | 51µs | # spent 30µs (8+22) within XML::LibXML::Text::BEGIN@1663 which was called # once (8µs+22µs) by XML::LibXML::SAX::BEGIN@17 at line 1663 use vars qw(@ISA); # spent 30µs making 1 call to XML::LibXML::Text::BEGIN@1663 # spent 22µs making 1 call to vars::import
1664 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node');
1665 |  |  |  |  |
1666 |  |  |  |  | sub attributes { return undef; }
1667 |  |  |  |  |
1668 |  |  |  |  | sub 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 |  |  |  |  |
1683 |  |  |  |  | sub 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 |  |  |  |  |
1698 |  |  |  |  | sub 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 |  |  |  |  |
1712 | 1 | 0s |  |  | 1;
1713 |  |  |  |  |
1714 |  |  |  |  | package XML::LibXML::Comment;
1715 |  |  |  |  |
1716 | 3 | 35µs | 2 | 51µs | # spent 29µs (8+21) within XML::LibXML::Comment::BEGIN@1716 which was called # once (8µs+21µs) by XML::LibXML::SAX::BEGIN@17 at line 1716 use vars qw(@ISA); # spent 29µs making 1 call to XML::LibXML::Comment::BEGIN@1716 # spent 21µs making 1 call to vars::import
1717 | 1 | 5µs |  |  | @ISA = ('XML::LibXML::Text');
1718 |  |  |  |  |
1719 | 1 | 0s |  |  | 1;
1720 |  |  |  |  |
1721 |  |  |  |  | package XML::LibXML::CDATASection;
1722 |  |  |  |  |
1723 | 3 | 38µs | 2 | 41µs | # spent 24µs (6+17) within XML::LibXML::CDATASection::BEGIN@1723 which was called # once (6µs+17µs) by XML::LibXML::SAX::BEGIN@17 at line 1723 use vars qw(@ISA); # spent 24µs making 1 call to XML::LibXML::CDATASection::BEGIN@1723 # spent 17µs making 1 call to vars::import
1724 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Text');
1725 |  |  |  |  |
1726 | 1 | 0s |  |  | 1;
1727 |  |  |  |  |
1728 |  |  |  |  | #-------------------------------------------------------------------------#
1729 |  |  |  |  | # XML::LibXML::Attribute Interface #
1730 |  |  |  |  | #-------------------------------------------------------------------------#
1731 |  |  |  |  | package XML::LibXML::Attr;
1732 | 3 | 73µs | 2 | 56µs | # spent 32µs (7+24) within XML::LibXML::Attr::BEGIN@1732 which was called # once (7µs+24µs) by XML::LibXML::SAX::BEGIN@17 at line 1732 use vars qw( @ISA ) ; # spent 32µs making 1 call to XML::LibXML::Attr::BEGIN@1732 # spent 24µs making 1 call to vars::import
1733 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node') ;
1734 |  |  |  |  |
1735 |  |  |  |  | sub 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 |  |  |  |  |
1746 | 1 | 0s |  |  | 1;
1747 |  |  |  |  |
1748 |  |  |  |  | #-------------------------------------------------------------------------#
1749 |  |  |  |  | # XML::LibXML::Dtd Interface #
1750 |  |  |  |  | #-------------------------------------------------------------------------#
1751 |  |  |  |  | # this is still under construction
1752 |  |  |  |  | #
1753 |  |  |  |  | package XML::LibXML::Dtd;
1754 | 3 | 33µs | 2 | 44µs | # spent 25µs (7+19) within XML::LibXML::Dtd::BEGIN@1754 which was called # once (7µs+19µs) by XML::LibXML::SAX::BEGIN@17 at line 1754 use vars qw( @ISA ); # spent 25µs making 1 call to XML::LibXML::Dtd::BEGIN@1754 # spent 19µs making 1 call to vars::import
1755 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node');
1756 |  |  |  |  |
1757 |  |  |  |  | # at least DESTROY and CLONE_SKIP must be inherited
1758 |  |  |  |  |
1759 | 1 | 0s |  |  | 1;
1760 |  |  |  |  |
1761 |  |  |  |  | #-------------------------------------------------------------------------#
1762 |  |  |  |  | # XML::LibXML::PI Interface #
1763 |  |  |  |  | #-------------------------------------------------------------------------#
1764 |  |  |  |  | package XML::LibXML::PI;
1765 | 3 | 283µs | 2 | 39µs | # spent 22µs (6+17) within XML::LibXML::PI::BEGIN@1765 which was called # once (6µs+17µs) by XML::LibXML::SAX::BEGIN@17 at line 1765 use vars qw( @ISA ); # spent 22µs making 1 call to XML::LibXML::PI::BEGIN@1765 # spent 17µs making 1 call to vars::import
1766 | 1 | 4µs |  |  | @ISA = ('XML::LibXML::Node');
1767 |  |  |  |  |
1768 |  |  |  |  | sub 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 |  |  |  |  |
1784 | 1 | 0s |  |  | 1;
1785 |  |  |  |  |
1786 |  |  |  |  | #-------------------------------------------------------------------------#
1787 |  |  |  |  | # XML::LibXML::Namespace Interface #
1788 |  |  |  |  | #-------------------------------------------------------------------------#
1789 |  |  |  |  | package XML::LibXML::Namespace;
1790 |  |  |  |  |
1791 |  |  |  |  | sub CLONE_SKIP { 1 }
1792 |  |  |  |  |
1793 |  |  |  |  | # this is infact not a node!
1794 |  |  |  |  | sub prefix { return "xmlns"; }
1795 |  |  |  |  | sub getPrefix { return "xmlns"; }
1796 |  |  |  |  | sub getNamespaceURI { return "http://www.w3.org/2000/xmlns/" };
1797 |  |  |  |  |
1798 |  |  |  |  | sub getNamespaces { return (); }
1799 |  |  |  |  |
1800 |  |  |  |  | sub nodeName {
1801 |  |  |  |  | my $self = shift;
1802 |  |  |  |  | my $nsP = $self->localname;
1803 |  |  |  |  | return ( defined($nsP) && length($nsP) ) ? "xmlns:$nsP" : "xmlns";
1804 |  |  |  |  | }
1805 |  |  |  |  | sub name { goto &nodeName }
1806 |  |  |  |  | sub getName { goto &nodeName }
1807 |  |  |  |  |
1808 |  |  |  |  | sub isEqualNode {
1809 |  |  |  |  | my ( $self, $ref ) = @_;
1810 |  |  |  |  | if ( ref($ref) eq "XML::LibXML::Namespace" ) {
1811 |  |  |  |  | return $self->_isEqual($ref);
1812 |  |  |  |  | }
1813 |  |  |  |  | return 0;
1814 |  |  |  |  | }
1815 |  |  |  |  |
1816 |  |  |  |  | sub isSameNode {
1817 |  |  |  |  | my ( $self, $ref ) = @_;
1818 |  |  |  |  | if ( $$self == $$ref ){
1819 |  |  |  |  | return 1;
1820 |  |  |  |  | }
1821 |  |  |  |  | return 0;
1822 |  |  |  |  | }
1823 |  |  |  |  |
1824 | 1 | 0s |  |  | 1;
1825 |  |  |  |  |
1826 |  |  |  |  | #-------------------------------------------------------------------------#
1827 |  |  |  |  | # XML::LibXML::NamedNodeMap Interface #
1828 |  |  |  |  | #-------------------------------------------------------------------------#
1829 |  |  |  |  | package XML::LibXML::NamedNodeMap;
1830 |  |  |  |  |
1831 | 3 | 456µs | 2 | 578µs | # spent 293µs (8+285) within XML::LibXML::NamedNodeMap::BEGIN@1831 which was called # once (8µs+285µs) by XML::LibXML::SAX::BEGIN@17 at line 1831 use XML::LibXML qw(:libxml); # spent 293µs making 1 call to XML::LibXML::NamedNodeMap::BEGIN@1831 # spent 285µs making 1 call to XML::LibXML::import
1832 |  |  |  |  |
1833 |  |  |  |  | sub CLONE_SKIP {
1834 |  |  |  |  | return $XML::LibXML::__threads_shared ? 0 : 1;
1835 |  |  |  |  | }
1836 |  |  |  |  |
1837 |  |  |  |  | sub new {
1838 |  |  |  |  | my $class = shift;
1839 |  |  |  |  | my $self = bless { Nodes => [@_] }, $class;
1840 |  |  |  |  | $self->{NodeMap} = { map { $_->nodeName => $_ } @_ };
1841 |  |  |  |  | return $self;
1842 |  |  |  |  | }
1843 |  |  |  |  |
1844 |  |  |  |  | sub length { return scalar( @{$_[0]->{Nodes}} ); }
1845 |  |  |  |  | sub nodes { return $_[0]->{Nodes}; }
1846 |  |  |  |  | sub item { $_[0]->{Nodes}->[$_[1]]; }
1847 |  |  |  |  |
1848 |  |  |  |  | sub getNamedItem {
1849 |  |  |  |  | my $self = shift;
1850 |  |  |  |  | my $name = shift;
1851 |  |  |  |  |
1852 |  |  |  |  | return $self->{NodeMap}->{$name};
1853 |  |  |  |  | }
1854 |  |  |  |  |
1855 |  |  |  |  | sub 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 |  |  |  |  |
1888 |  |  |  |  | sub 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 |  |  |  |  |
1905 |  |  |  |  | sub getNamedItemNS {
1906 |  |  |  |  | my $self = shift;
1907 |  |  |  |  | my $nsURI = shift;
1908 |  |  |  |  | my $name = shift;
1909 |  |  |  |  | return undef;
1910 |  |  |  |  | }
1911 |  |  |  |  |
1912 |  |  |  |  | sub setNamedItemNS {
1913 |  |  |  |  | my $self = shift;
1914 |  |  |  |  | my $nsURI = shift;
1915 |  |  |  |  | my $node = shift;
1916 |  |  |  |  | return undef;
1917 |  |  |  |  | }
1918 |  |  |  |  |
1919 |  |  |  |  | sub removeNamedItemNS {
1920 |  |  |  |  | my $self = shift;
1921 |  |  |  |  | my $nsURI = shift;
1922 |  |  |  |  | my $name = shift;
1923 |  |  |  |  | return undef;
1924 |  |  |  |  | }
1925 |  |  |  |  |
1926 | 1 | 0s |  |  | 1;
1927 |  |  |  |  |
1928 |  |  |  |  | package XML::LibXML::_SAXParser;
1929 |  |  |  |  |
1930 |  |  |  |  | # this is pseudo class!!! and it will be removed as soon all functions
1931 |  |  |  |  | # moved to XS level
1932 |  |  |  |  |
1933 | 3 | 466µs | 1 | 10µs | # spent 10µs within XML::LibXML::_SAXParser::BEGIN@1933 which was called # once (10µs+0s) by XML::LibXML::SAX::BEGIN@17 at line 1933 use XML::SAX::Exception; # spent 10µs making 1 call to XML::LibXML::_SAXParser::BEGIN@1933
1934 |  |  |  |  |
1935 |  |  |  |  | sub 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
1940 |  |  |  |  | sub 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 |  |  |  |  |
1948 |  |  |  |  | sub 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 |  |  |  |  |
1957 |  |  |  |  | sub 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 |  |  |  |  |
1965 | 1 | 0s |  |  | 1;
1966 |  |  |  |  |
1967 |  |  |  |  | package XML::LibXML::RelaxNG;
1968 |  |  |  |  |
1969 |  |  |  |  | sub CLONE_SKIP { 1 }
1970 |  |  |  |  |
1971 |  |  |  |  | sub 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 |  |  |  |  |
1989 | 1 | 0s |  |  | 1;
1990 |  |  |  |  |
1991 |  |  |  |  | package XML::LibXML::Schema;
1992 |  |  |  |  |
1993 |  |  |  |  | sub CLONE_SKIP { 1 }
1994 |  |  |  |  |
1995 |  |  |  |  | sub 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 |  |  |  |  |
2010 | 1 | 0s |  |  | 1;
2011 |  |  |  |  |
2012 |  |  |  |  | #-------------------------------------------------------------------------#
2013 |  |  |  |  | # XML::LibXML::Pattern Interface #
2014 |  |  |  |  | #-------------------------------------------------------------------------#
2015 |  |  |  |  |
2016 |  |  |  |  | package XML::LibXML::Pattern;
2017 |  |  |  |  |
2018 |  |  |  |  | sub CLONE_SKIP { 1 }
2019 |  |  |  |  |
2020 |  |  |  |  | sub 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 |  |  |  |  |
2039 | 1 | 0s |  |  | 1;
2040 |  |  |  |  |
2041 |  |  |  |  | #-------------------------------------------------------------------------#
2042 |  |  |  |  | # XML::LibXML::RegExp Interface #
2043 |  |  |  |  | #-------------------------------------------------------------------------#
2044 |  |  |  |  |
2045 |  |  |  |  | package XML::LibXML::RegExp;
2046 |  |  |  |  |
2047 |  |  |  |  | sub CLONE_SKIP { 1 }
2048 |  |  |  |  |
2049 |  |  |  |  | sub 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 |  |  |  |  |
2059 | 1 | 0s |  |  | 1;
2060 |  |  |  |  |
2061 |  |  |  |  | #-------------------------------------------------------------------------#
2062 |  |  |  |  | # XML::LibXML::XPathExpression Interface #
2063 |  |  |  |  | #-------------------------------------------------------------------------#
2064 |  |  |  |  |
2065 |  |  |  |  | package XML::LibXML::XPathExpression;
2066 |  |  |  |  |
2067 |  |  |  |  | sub CLONE_SKIP { 1 }
2068 |  |  |  |  |
2069 | 1 | 0s |  |  | 1;
2070 |  |  |  |  |
2071 |  |  |  |  |
2072 |  |  |  |  | #-------------------------------------------------------------------------#
2073 |  |  |  |  | # XML::LibXML::InputCallback Interface #
2074 |  |  |  |  | #-------------------------------------------------------------------------#
2075 |  |  |  |  | package XML::LibXML::InputCallback;
2076 |  |  |  |  |
2077 | 3 | 35µs | 2 | 103µs | # spent 55µs (8+47) within XML::LibXML::InputCallback::BEGIN@2077 which was called # once (8µs+47µs) by XML::LibXML::SAX::BEGIN@17 at line 2077 use vars qw($_CUR_CB @_GLOBAL_CALLBACKS @_CB_STACK); # spent 55µs making 1 call to XML::LibXML::InputCallback::BEGIN@2077 # spent 48µs making 1 call to vars::import
2078 |  |  |  |  |
2079 |  |  |  |  | # spent 4µs within XML::LibXML::InputCallback::BEGIN@2079 which was called # once (4µs+0s) by XML::LibXML::SAX::BEGIN@17 at line 2083 BEGIN {
2080 | 1 | 200ns |  |  | $_CUR_CB = undef;
2081 | 1 | 400ns |  |  | @_GLOBAL_CALLBACKS = ();
2082 | 1 | 11µs |  |  | @_CB_STACK = ();
2083 | 1 | 475µs | 1 | 4µs | } # spent 4µs making 1 call to XML::LibXML::InputCallback::BEGIN@2079
2084 |  |  |  |  |
2085 |  |  |  |  | sub CLONE_SKIP {
2086 |  |  |  |  | return $XML::LibXML::__threads_shared ? 0 : 1;
2087 |  |  |  |  | }
2088 |  |  |  |  |
2089 |  |  |  |  | #-------------------------------------------------------------------------#
2090 |  |  |  |  | # global callbacks #
2091 |  |  |  |  | #-------------------------------------------------------------------------#
2092 |  |  |  |  | sub _callback_match {
2093 |  |  |  |  | my $uri = shift;
2094 |  |  |  |  | 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.
2099 |  |  |  |  | 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 |  |  |  |  |
2116 |  |  |  |  | return $retval;
2117 |  |  |  |  | }
2118 |  |  |  |  |
2119 |  |  |  |  | sub _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 |  |  |  |  |
2141 |  |  |  |  | sub _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 |  |  |  |  |
2154 |  |  |  |  | sub _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 20µs within XML::LibXML::InputCallback::new which was called 3 times, avg 6µs/call: # 3 times (20µs+0s) by XML::LibXML::_init_callbacks at line 722, avg 6µs/call sub new {
2172 | 3 | 2µs |  |  | my $CLASS = shift;
2173 | 3 | 22µ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] );
2178 |  |  |  |  | sub 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 17µs within XML::LibXML::InputCallback::unregister_callbacks which was called 3 times, avg 6µs/call: # 3 times (17µs+0s) by XML::LibXML::_cleanup_callbacks at line 741, avg 6µs/call sub unregister_callbacks {
2191 | 3 | 1µs |  |  | my $self = shift;
2192 | 3 | 1µs |  |  | my $cbset = shift;
2193 | 3 | 13µs |  |  | if ( ref $cbset eq "ARRAY" and scalar( @$cbset ) == 4 ) {
2194 |  |  |  |  | $self->{_CALLBACKS} = [grep { $_->[0] != $cbset->[0] } @{$self->{_CALLBACKS}}];
2195 |  |  |  |  | }
2196 |  |  |  |  | else {
2197 | 3 | 3µs |  |  | shift @{$self->{_CALLBACKS}};
2198 |  |  |  |  | }
2199 |  |  |  |  | }
2200 |  |  |  |  |
2201 |  |  |  |  | # make libxml2 use the callbacks
2202 |  |  |  |  | # spent 54µs (32+21) within XML::LibXML::InputCallback::init_callbacks which was called 3 times, avg 18µs/call: # 3 times (32µs+21µs) by XML::LibXML::_init_callbacks at line 734, avg 18µs/call sub init_callbacks {
2203 | 3 | 2µs |  |  | my $self = shift;
2204 |  |  |  |  |
2205 | 3 | 2µs |  |  | $_CUR_CB = undef;
2206 | 3 | 3µs |  |  | @_CB_STACK = ();
2207 |  |  |  |  |
2208 | 3 | 3µs |  |  | @_GLOBAL_CALLBACKS = @{ $self->{_CALLBACKS} };
2209 |  |  |  |  |
2210 | 3 | 2µ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 |  |  |  |  |
2220 | 3 | 47µs | 3 | 21µs | $self->lib_init_callbacks(); # spent 21µs making 3 calls to XML::LibXML::InputCallback::lib_init_callbacks, avg 7µs/call
2221 |  |  |  |  | }
2222 |  |  |  |  |
2223 |  |  |  |  | # reset libxml2's callbacks
2224 |  |  |  |  | # spent 30µs (24+6) within XML::LibXML::InputCallback::cleanup_callbacks which was called 3 times, avg 10µs/call: # 3 times (24µs+6µs) by XML::LibXML::_cleanup_callbacks at line 739, avg 10µs/call sub cleanup_callbacks {
2225 | 3 | 1µs |  |  | my $self = shift;
2226 |  |  |  |  |
2227 | 3 | 1µs |  |  | $_CUR_CB = undef;
2228 | 3 | 1µs |  |  | @_GLOBAL_CALLBACKS = ();
2229 | 3 | 400ns |  |  | @_CB_STACK = ();
2230 |  |  |  |  |
2231 | 3 | 28µs | 3 | 6µs | $self->lib_cleanup_callbacks(); # spent 6µs making 3 calls to XML::LibXML::InputCallback::lib_cleanup_callbacks, avg 2µs/call
2232 |  |  |  |  | }
2233 |  |  |  |  |
2234 | 1 | 200ns |  |  | $XML::LibXML::__loaded=1;
2235 |  |  |  |  |
2236 | 1 | 49µs |  |  | 1;
2237 |  |  |  |  |
2238 |  |  |  |  | __END__
|  |  |  |  | # spent 3µs within XML::LibXML::CORE:match which was called 7 times, avg 486ns/call: # 3 times (600ns+0s) by XML::LibXML::import at line 183 of XML/LibXML.pm, avg 200ns/call # 3 times (300ns+0s) by XML::LibXML::import at line 206 of XML/LibXML.pm, avg 100ns/call # once (2µs+0s) by XML::LibXML::SAX::BEGIN@17 at line 221 of XML/LibXML.pm sub XML::LibXML::CORE:match; # xsub
|  |  |  |  | # spent 41µs within XML::LibXML::END which was called # once (41µs+0s) by main::RUNTIME at line 0 of 01.HTTP.t sub XML::LibXML::END; # xsub
|  |  |  |  | # spent 6µs within XML::LibXML::InputCallback::lib_cleanup_callbacks which was called 3 times, avg 2µs/call: # 3 times (6µs+0s) by XML::LibXML::InputCallback::cleanup_callbacks at line 2231 of XML/LibXML.pm, avg 2µs/call sub XML::LibXML::InputCallback::lib_cleanup_callbacks; # xsub
|  |  |  |  | # spent 21µs within XML::LibXML::InputCallback::lib_init_callbacks which was called 3 times, avg 7µs/call: # 3 times (21µs+0s) by XML::LibXML::InputCallback::init_callbacks at line 2220 of XML/LibXML.pm, avg 7µs/call sub XML::LibXML::InputCallback::lib_init_callbacks; # xsub
|  |  |  |  | # spent 12µs within XML::LibXML::LIBXML_RUNTIME_VERSION which was called # once (12µs+0s) by XML::LibXML::SAX::BEGIN@17 at line 221 of XML/LibXML.pm sub XML::LibXML::LIBXML_RUNTIME_VERSION; # xsub
|  |  |  |  | # spent 5µs within XML::LibXML::LIBXML_VERSION which was called # once (5µs+0s) by XML::LibXML::SAX::BEGIN@17 at line 222 of XML/LibXML.pm sub XML::LibXML::LIBXML_VERSION; # xsub
|  |  |  |  | # spent 3.06ms (1.15+1.91) within XML::LibXML::_parse_sax_string which was called 3 times, avg 1.02ms/call: # 3 times (1.15ms+1.91ms) by XML::LibXML::parse_string at line 836 of XML/LibXML.pm, avg 1.02ms/call sub XML::LibXML::_parse_sax_string; # xsub
|  |  |  |  | # spent 708µs within XML::LibXML::bootstrap which was called # once (708µs+0s) by DynaLoader::bootstrap at line 227 of DynaLoader.pm sub XML::LibXML::bootstrap; # xsub