/usr/share/perl5/XML/Mini/TreeComponent.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 | package XML::Mini::TreeComponent;
use strict;
$^W = 1;
use Data::Dumper;
use XML::Mini;
use vars qw ( $VERSION );
$VERSION = '1.28';
sub new
{
my $class = shift;
my $self = {};
bless $self, ref $class || $class;
return $self;
}
sub name
{
my $self = shift;
my $setTo = shift; # optionally set
return undef;
}
sub getElement
{
my $self = shift;
my $name = shift;
return undef;
}
sub getValue
{
my $self = shift;
return undef;
}
sub parent
{
my $self = shift;
my $newParent = shift; # optionally set
if ($newParent)
{
my $ownType = ref $self;
my $type = ref $newParent;
if ($type && $type =~ /^$ownType/)
{
$self->{'_parent'} = $newParent;
} else {
return XML::Mini->Error("XML::MiniTreeComponent::parent(): Must pass an instance derived from "
. "XML::MiniTreeComponent to set.");
}
}
return $self->{'_parent'};
}
sub toString
{
my $self = shift;
my $depth = shift || 0;
return undef;
}
sub dump
{
my $self = shift;
return Dumper($self);
}
sub _spaceStr
{
my $self = shift;
my $numSpaces = shift;
my $retStr = '';
if ($numSpaces)
{
$retStr = ' ' x $numSpaces;
}
return $retStr;
}
1;
__END__
=head1 NAME
XML::Mini::TreeComponent - Perl implementation of the XML::Mini TreeComponent API.
=head1 SYNOPSIS
Don't use this class - only presents an interface for other derived classes.
=head1 DESCRIPTION
This class is only to be used as a base class
for others.
It presents the minimal interface we can expect
from any component in the XML hierarchy.
All methods of this base class
simply return NULL except a little default functionality
included in the parent() method.
Warning: This class is not to be instatiated.
Derive and override.
=head2 parent [NEWPARENT]
The parent() method is used to get/set the element's parent.
If the NEWPARENT parameter is passed, sets the parent to NEWPARENT
(NEWPARENT must be an instance of a class derived from XML::MiniTreeComponent)
Returns a reference to the parent XML::MiniTreeComponent if set, NULL otherwise.
=head2 toString [DEPTH]
Return a stringified version of the XML representing
this component and all sub-components
=head2 dump
Debugging aid, dump returns a nicely formatted dump of the current structure of the
XML::Mini::TreeComponent-derived object.
=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::TreeComponent 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/>.
Official XML::Mini site: http://minixml.psychogenic.com
Contact page for author available on http://www.psychogenic.com/
=head1 SEE ALSO
XML::Mini, XML::Mini::Document, XML::Mini::Element
http://minixml.psychogenic.com
=cut
|