File Manager

X7ROOT File Manager

Current Path: /usr/local/lib64/perl5/XML/LibXML

usr / local / lib64 / perl5 / XML / LibXML /

?? ..
?? Attr.pod(4.02 KB)
?? AttributeHash.pm(4.49 KB)
?? Boolean.pm(1.56 KB)
?? CDATASection.pod(1.28 KB)
?? Comment.pod(1.36 KB)
?? Common.pm(8.2 KB)
?? Common.pod(3.59 KB)
?? DOM.pod(6.23 KB)
?? Devel.pm(4.91 KB)
?? Document.pod(21.09 KB)
?? DocumentFragment.pod(819 B)
?? Dtd.pod(1.99 KB)
?? Element.pod(13.48 KB)
?? ErrNo.pm(27.83 KB)
?? ErrNo.pod(591 B)
?? Error.pm(8.45 KB)
?? Error.pod(5.98 KB)
?? InputCallback.pod(9.59 KB)
?? Literal.pm(2.04 KB)
?? Namespace.pod(3.28 KB)
?? Node.pod(25.67 KB)
?? NodeList.pm(7.31 KB)
?? Number.pm(1.87 KB)
?? PI.pod(2.22 KB)
?? Parser.pod(27.79 KB)
?? Pattern.pod(2.91 KB)
?? Reader.pm(5.75 KB)
?? Reader.pod(17.6 KB)
?? RegExp.pod(1.54 KB)
?? RelaxNG.pod(2.34 KB)
?? SAX
?? SAX.pm(3.45 KB)
?? SAX.pod(1.76 KB)
?? Schema.pod(2.19 KB)
?? Text.pod(5.47 KB)
?? XPathContext.pm(3.15 KB)
?? XPathContext.pod(11.49 KB)
?? XPathExpression.pod(1.64 KB)

Editing: Literal.pm

# $Id$
#
# This is free software, you may use it and distribute it under the same terms as
# Perl itself.
#
# Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas
#
#

package XML::LibXML::Literal;

use XML::LibXML::Boolean;
use XML::LibXML::Number;

use strict;
use warnings;

use vars qw ($VERSION);
$VERSION = "2.0210"; # VERSION TEMPLATE: DO NOT CHANGE

use overload
		'""' => \&value,
		'cmp' => \&cmp;

sub new {
	my $class = shift;
	my ($string) = @_;

#	$string =~ s/&quot;/"/g;
#	$string =~ s/&apos;/'/g;

bless \$string, $class;
}

sub as_string {
	my $self = shift;
	my $string = $$self;
	$string =~ s/'/&apos;/g;
	return "'$string'";
}

sub as_xml {
    my $self = shift;
    my $string = $$self;
    return "<Literal>$string</Literal>\n";
}

sub value {
	my $self = shift;
	$$self;
}

sub cmp {
	my $self = shift;
	my ($cmp, $swap) = @_;
	if ($swap) {
		return $cmp cmp $$self;
	}
	return $$self cmp $cmp;
}

sub evaluate {
	my $self = shift;
	$self;
}

sub to_boolean {
	my $self = shift;
	return (length($$self) > 0) ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False;
}

sub to_number { return XML::LibXML::Number->new($_[0]->value); }
sub to_literal { return $_[0]; }

sub string_value { return $_[0]->value; }

1;
__END__

=head1 NAME

XML::LibXML::Literal - Simple string values.

=head1 DESCRIPTION

In XPath terms a Literal is what we know as a string.

=head1 API

=head2 new($string)

Create a new Literal object with the value in $string. Note that &quot; and
&apos; will be converted to " and ' respectively. That is not part of the XPath
specification, but I consider it useful. Note though that you have to go
to extraordinary lengths in an XML template file (be it XSLT or whatever) to
make use of this:

<xsl:value-of select="&quot;I'm feeling &amp;quot;sad&amp;quot;&quot;"/>

Which produces a Literal of:

I'm feeling "sad"

=head2 value()

Also overloaded as stringification, simply returns the literal string value.

=head2 cmp($literal)

Returns the equivalent of perl's cmp operator against the given $literal.

=cut

X7ROOT File Manager

Editing: Literal.pm

Upload File

Create Folder