FM / LibXML

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

Name	Size	Mode	Actions
SAX/	-	0755	rm
Attr.pod	4121	0444	edit dl rm
AttributeHash.pm	4593	0444	edit dl rm
Boolean.pm	1601	0444	edit dl rm
CDATASection.pod	1315	0444	edit dl rm
Comment.pod	1396	0444	edit dl rm
Common.pm	8399	0444	edit dl rm
Common.pod	3672	0444	edit dl rm
Devel.pm	5028	0444	edit dl rm
Document.pod	21593	0444	edit dl rm
DocumentFragment.pod	819	0444	edit dl rm
DOM.pod	6379	0444	edit dl rm
Dtd.pod	2039	0444	edit dl rm
Element.pod	13806	0444	edit dl rm
ErrNo.pm	28499	0444	edit dl rm
ErrNo.pod	591	0444	edit dl rm
Error.pm	8653	0444	edit dl rm
Error.pod	6121	0444	edit dl rm
InputCallback.pod	9822	0444	edit dl rm
Literal.pm	2094	0444	edit dl rm
Namespace.pod	3362	0444	edit dl rm
Node.pod	26282	0444	edit dl rm
NodeList.pm	7489	0444	edit dl rm
Number.pm	1916	0444	edit dl rm
Parser.pod	28453	0444	edit dl rm
Pattern.pod	2975	0444	edit dl rm
PI.pod	2271	0444	edit dl rm
Reader.pm	5887	0444	edit dl rm
Reader.pod	18023	0444	edit dl rm
RegExp.pod	1574	0444	edit dl rm
RelaxNG.pod	2398	0444	edit dl rm
SAX.pm	3532	0444	edit dl rm
SAX.pod	1804	0444	edit dl rm
Schema.pod	2247	0444	edit dl rm
Text.pod	5601	0444	edit dl rm
XPathContext.pm	3223	0444	edit dl rm
XPathContext.pod	11767	0444	edit dl rm
XPathExpression.pod	1678	0444	edit dl rm

Edit: /usr/local/lib64/perl5/XML/LibXML/Number.pm (1916B)

# $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::Number;
use XML::LibXML::Boolean;
use XML::LibXML::Literal;
use strict;
use warnings;

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

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

sub new {
    my $class = shift;
    my $number = shift;
    if ($number !~ /^\s*(-\s*)?(\d+(\.\d*)?|\.\d+)\s*$/) {
        $number = undef;
    }
    else {
        $number =~ s/\s+//g;
    }
    bless \$number, $class;
}

sub as_string {
    my $self = shift;
    defined $$self ? $$self : 'NaN';
}

sub as_xml {
    my $self = shift;
    return "<Number>" . (defined($$self) ? $$self : 'NaN') . "</Number>\n";
}

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

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

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

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

sub to_literal { XML::LibXML::Literal->new($_[0]->as_string); }
sub to_number { $_[0]; }

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

1;
__END__

=head1 NAME

XML::LibXML::Number - Simple numeric values.

=head1 DESCRIPTION

This class holds simple numeric values. It doesn't support -0, +/- Infinity,
or NaN, as the XPath spec says it should, but I'm not hurting anyone I don't think.

=head1 API

=head2 new($num)

Creates a new XML::LibXML::Number object, with the value in $num. Does some
rudimentary numeric checking on $num to ensure it actually is a number.

=head2 value()

Also as overloaded stringification. Returns the numeric value held.

=cut

cmd: