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

our $VERSION = "2.0213"; # 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

docroot: /home/induvedam/public_html

curdir: /usr/local/lib64/perl5/5.32/XML/LibXML

	.	4096
	..	55
X	Attr.pod	4121
X	AttributeHash.pm	4574
X	Boolean.pm	1580
X	CDATASection.pod	1315
X	Comment.pod	1396
X	Common.pm	8358
X	Common.pod	3672
X	DOM.pod	6379
X	Devel.pm	5180
X	Document.pod	21637
X	DocumentFragment.pod	819
X	Dtd.pod	2039
X	Element.pod	13806
X	ErrNo.pm	28480
X	ErrNo.pod	591
X	Error.pm	8617
X	Error.pod	6121
X	InputCallback.pod	9822
X	Literal.pm	2074
X	NamedNodeMap.pod	1694
X	Namespace.pod	3362
X	Node.pod	26337
X	NodeList.pm	7470
X	Number.pm	1896
X	PI.pod	2271
X	Parser.pod	28453
X	Pattern.pod	2975
X	Reader.pm	5831
X	Reader.pod	18023
X	RegExp.pod	1574
X	RelaxNG.pod	2398
	SAX	80
X	SAX.pm	3507
X	SAX.pod	1804
X	Schema.pod	2247
X	Text.pod	5601
X	XPathContext.pm	3180
X	XPathContext.pod	11932
X	XPathExpression.pod	1678