Gecko [ 196.203.21.74 ]

Name	Size	Permission
SAX	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
Attr.pod	4.02 KB	-rw-rw-rw-
AttributeHash.pm	4.49 KB	-rw-rw-rw-
Boolean.pm	1.56 KB	-rw-rw-rw-
CDATASection.pod	1.28 KB	-rw-rw-rw-
Comment.pod	1.36 KB	-rw-rw-rw-
Common.pm	8.22 KB	-rw-rw-rw-
Common.pod	3.59 KB	-rw-rw-rw-
DOM.pod	6.23 KB	-rw-rw-rw-
Devel.pm	4.91 KB	-rw-rw-rw-
Document.pod	20.91 KB	-rw-rw-rw-
DocumentFragment.pod	819 B	-rw-rw-rw-
Dtd.pod	1.99 KB	-rw-rw-rw-
Element.pod	13.48 KB	-rw-rw-rw-
ErrNo.pm	27.83 KB	-rw-rw-rw-
ErrNo.pod	591 B	-rw-rw-rw-
Error.pm	8.47 KB	-rw-rw-rw-
Error.pod	5.98 KB	-rw-rw-rw-
InputCallback.pod	9.59 KB	-rw-rw-rw-
Literal.pm	2.04 KB	-rw-rw-rw-
Namespace.pod	3.28 KB	-rw-rw-rw-
Node.pod	25.39 KB	-rw-rw-rw-
NodeList.pm	7.31 KB	-rw-rw-rw-
Number.pm	1.87 KB	-rw-rw-rw-
PI.pod	2.22 KB	-rw-rw-rw-
Parser.pod	27.79 KB	-rw-rw-rw-
Pattern.pod	2.91 KB	-rw-rw-rw-
Reader.pm	5.75 KB	-rw-rw-rw-
Reader.pod	17.6 KB	-rw-rw-rw-
RegExp.pod	1.54 KB	-rw-rw-rw-
RelaxNG.pod	2.34 KB	-rw-rw-rw-
SAX.pm	3.45 KB	-rw-rw-rw-
SAX.pod	1.76 KB	-rw-rw-rw-
Schema.pod	2.19 KB	-rw-rw-rw-
Text.pod	5.47 KB	-rw-rw-rw-
XPathContext.pm	3.15 KB	-rw-rw-rw-
XPathContext.pod	11.49 KB	-rw-rw-rw-
XPathExpression.pod	1.64 KB	-rw-rw-rw-
pwnkit	10.99 KB	-rw-rw-rw-

Name

Size

Permission

Action

SAX

[ DIR ]

drwxrwxrwx

.mad-root

0 B

-rw-rw-rw-

Attr.pod

4.02 KB

-rw-rw-rw-

AttributeHash.pm

4.49 KB

-rw-rw-rw-

Boolean.pm

1.56 KB

-rw-rw-rw-

CDATASection.pod

1.28 KB

-rw-rw-rw-

Comment.pod

1.36 KB

-rw-rw-rw-

Common.pm

8.22 KB

-rw-rw-rw-

Common.pod

3.59 KB

-rw-rw-rw-

DOM.pod

6.23 KB

-rw-rw-rw-

Devel.pm

4.91 KB

-rw-rw-rw-

Document.pod

20.91 KB

-rw-rw-rw-

DocumentFragment.pod

819 B

-rw-rw-rw-

Dtd.pod

1.99 KB

-rw-rw-rw-

Element.pod

13.48 KB

-rw-rw-rw-

ErrNo.pm

27.83 KB

-rw-rw-rw-

ErrNo.pod

591 B

-rw-rw-rw-

Error.pm

8.47 KB

-rw-rw-rw-

Error.pod

5.98 KB

-rw-rw-rw-

InputCallback.pod

9.59 KB

-rw-rw-rw-

Literal.pm

2.04 KB

-rw-rw-rw-

Namespace.pod

3.28 KB

-rw-rw-rw-

Node.pod

25.39 KB

-rw-rw-rw-

NodeList.pm

7.31 KB

-rw-rw-rw-

Number.pm

1.87 KB

-rw-rw-rw-

PI.pod

2.22 KB

-rw-rw-rw-

Parser.pod

27.79 KB

-rw-rw-rw-

Pattern.pod

2.91 KB

-rw-rw-rw-

Reader.pm

5.75 KB

-rw-rw-rw-

Reader.pod

17.6 KB

-rw-rw-rw-

RegExp.pod

1.54 KB

-rw-rw-rw-

RelaxNG.pod

2.34 KB

-rw-rw-rw-

SAX.pm

3.45 KB

-rw-rw-rw-

SAX.pod

1.76 KB

-rw-rw-rw-

Schema.pod

2.19 KB

-rw-rw-rw-

Text.pod

5.47 KB

-rw-rw-rw-

XPathContext.pm

3.15 KB

-rw-rw-rw-

XPathContext.pod

11.49 KB

-rw-rw-rw-

XPathExpression.pod

1.64 KB

-rw-rw-rw-

pwnkit

10.99 KB

-rw-rw-rw-

Code Editor : 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;

use vars qw ($VERSION);
$VERSION = "2.0206"; # 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

${this.title}

Code Editor : Number.pm