/usr/share/perl5/XML/Mini.pm is in libxml-mini-perl 1.38-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 | package XML::Mini;
use strict;
$^W = 1;
use vars qw (
$AutoEscapeEntities
$AutoSetParent
$AvoidLoops
$CaseSensitive
$Debug
$IgnoreWhitespaces
$NoWhiteSpaces
$CheckXMLBeforeParsing
$DieOnBadXML
$VERSION
$IgnoreDeepRecursionWarnings
);
$VERSION = '1.38';
$AvoidLoops = 0;
$AutoEscapeEntities = 1;
$Debug = 0;
$IgnoreWhitespaces = 1;
$CaseSensitive = 0;
$AutoSetParent = 0;
$NoWhiteSpaces = -999;
$CheckXMLBeforeParsing = 1;
$DieOnBadXML = 1;
$IgnoreDeepRecursionWarnings = 1;
sub Log
{
my $class = shift;
print STDERR "XML::Mini LOG MESSAGE:" ;
print STDERR join(" ", @_) . "\n";
}
sub Error
{
my $class = shift;
my $errMsg = "XML::Mini Error MESSAGE:" . join(" ", @_) . "\n";
print STDERR $errMsg;
die $errMsg;
}
sub escapeEntities
{
my $class = shift;
my $toencode = shift;
return undef unless (defined $toencode);
$toencode=~s/&/&/g;
$toencode=~s/\"/"/g;
$toencode=~s/>/>/g;
$toencode=~s/</</g;
$toencode=~s/([\xA0-\xFF])/"&#".ord($1).";"/ge;
return $toencode;
}
sub ignoreDeepRecursionWarning {
# we do deep recursion... but it's ok, stop warning...
$SIG{__WARN__} = sub {
my $msg = shift;
print STDERR $msg if ($msg !~ /Deep recursion/);
};
}
1;
__END__
=head1 NAME
XML::Mini - Perl implementation of the XML::Mini XML create/parse interface.
=head1 SYNOPSIS
use XML::Mini::Document;
use Data::Dumper;
###### PARSING XML #######
# create a new object
my $xmlDoc = XML::Mini::Document->new();
# init the doc from an XML string
$xmlDoc->parse($XMLString);
# You may use the toHash() method to automatically
# convert the XML into a hash reference
my $xmlHash = $xmlDoc->toHash();
print Dumper($xmlHash);
# You can also manipulate the elements like directly, like this:
# Fetch the ROOT element for the document
# (an instance of XML::Mini::Element)
my $xmlRoot = $xmlDoc->getRoot();
# play with the element and its children
# ...
my $topLevelChildren = $xmlRoot->getAllChildren();
foreach my $childElement (@{$topLevelChildren})
{
# ...
}
###### CREATING XML #######
# Create a new document from scratch
my $newDoc = XML::Mini::Document->new();
# This can be done easily by using a hash:
my $h = {
'spy' => {
'id' => '007',
'type' => 'SuperSpy',
'name' => 'James Bond',
'email' => 'mi5@london.uk',
'address' => 'Wherever he is needed most',
},
};
$newDoc->fromHash($h);
# Or new XML can also be created by manipulating
#elements directly:
my $newDocRoot = $newDoc->getRoot();
# create the <? xml ?> header
my $xmlHeader = $newDocRoot->header('xml');
# add the version
$xmlHeader->attribute('version', '1.0');
my $person = $newDocRoot->createChild('person');
my $name = $person->createChild('name');
$name->createChild('first')->text('John');
$name->createChild('last')->text('Doe');
my $eyes = $person->createChild('eyes');
$eyes->attribute('color', 'blue');
$eyes->attribute('number', 2);
# output the document
print $newDoc->toString();
This example would output :
<?xml version="1.0"?>
<person>
<name>
<first>
John
</first>
<last>
Doe
</last>
</name>
<eyes color="blue" number="2" />
</person>
=head1 DESCRIPTION
XML::Mini is a set of Perl classes that allow you to access XML data and create valid XML output with a tree-based hierarchy of elements. The MiniXML API has both Perl and PHP implementations.
It provides an easy, object-oriented interface for manipulating XML documents and their elements. It is currently being used to send requests and understand responses from remote servers in Perl or PHP applications. An XML::Mini based parser is now being tested within the RPC::XML framework.
XML::Mini does not require any external libraries or modules and is pure Perl. If available, XML::Mini will use the Text::Balanced module in order to escape limitations of the regex-only approach (eg "cross-nested" tag parsing).
The Mini.pm module includes a number of variables you may use to tweak XML::Mini's behavior. These include:
$XML::Mini::AutoEscapeEntities - when greater than 0, the values set for nodes are automatically escaped, thus
$element->text('4 is > 3') will set the contents of the appended node to '4 is > 3'. Default setting is 1.
$XML::Mini::IgnoreWhitespaces - when greater than 0, extraneous whitespaces will be ignored (maily useful when parsing). Thus
<mytag> Hello There </mytag> will be parsed as containing a text node with contents 'Hello There' instead
of ' Hello There '. Default setting is 1.
$XML::Mini::CaseSensitive - when greater than 0, element names are treated as case sensitive. Thus, $element->getElement('subelement') and $element->getElement('SubElement') will be equivalent. Defaults to 0.
=head1 Class methods
=head2 escapeEntites TOENCODE
This method returns ToENCODE with HTML sensitive values
(eg '<', '>', '"', etc) HTML encoded.
=cut
=head2 Log MESSAGE
Logs the message to STDERR
=head2 Error MESSAGE
Logs MESSAGE and exits the program, calling exit()
=head2 ignoreDeepRecursionWarning
XML::Mini uses deep recursion on big XML docs, this is normal. But the warnings are a pain.
$XML::Mini::IgnoreDeepRecursionWarnings is set to TRUE by default, and ignoreDeepRecursionWarning() is called
by XML::Mini::Document if it is set. To bypass this behavior,
use XML::Mini;
$XML::Mini::IgnoreDeepRecursionWarnings = 0;
use XML::Mini::Document;
# ...
=head1 AUTHOR
Copyright (C) 2002-2008 Patrick Deegan, Psychogenic Inc.
Programs that use this code are bound to the terms and conditions of the GNU GPL (see the LICENSE file).
If you wish to include these modules in non-GPL code, you need prior written authorisation
from the authors.
This library is released under the terms of the GNU GPL version 3, making it available only for
free programs ("free" here being used in the sense of the GPL, see http://www.gnu.org for more details).
Anyone wishing to use this library within a proprietary or otherwise non-GPLed program MUST contact psychogenic.com to
acquire a distinct license for their application. This approach encourages the use of free software
while allowing for proprietary solutions that support further development.
=head2 LICENSE
XML::Mini::Element module, part of the XML::Mini XML parser/generator package.
Copyright (C) 2002-2008 Patrick Deegan
All rights reserved
XML::Mini is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
XML::Mini is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with XML::Mini. If not, see <http://www.gnu.org/licenses/>.
=head1 SEE ALSO
XML::Mini::Document, XML::Mini::Element
http://minixml.psychogenic.com
=cut
|