local-lib5/lib/perl5/i486-linux-gnu-thread-multi/XML/LibXML/Number.pm

   1 # $Id: Number.pm 785 2009-07-16 14:17:46Z pajas $
   2 #
   3 # This is free software, you may use it and distribute it under the same terms as
   4 # Perl itself.
   5 #
   6 # Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas
   7 #
   8 #
   9
  10 package XML::LibXML::Number;
  11 use XML::LibXML::Boolean;
  12 use XML::LibXML::Literal;
  13 use strict;
  14
  15 use vars qw ($VERSION);
  16 $VERSION = "1.70"; # VERSION TEMPLATE: DO NOT CHANGE
  17
  18 use overload
  19         '""' => \&value,
  20         '0+' => \&value,
  21         '<=>' => \&cmp;
  22
  23 sub new {
  24     my $class = shift;
  25     my $number = shift;
  26     if ($number !~ /^\s*(-\s*)?(\d+(\.\d*)?|\.\d+)\s*$/) {
  27         $number = undef;
  28     }
  29     else {
  30         $number =~ s/\s+//g;
  31     }
  32     bless \$number, $class;
  33 }
  34
  35 sub as_string {
  36     my $self = shift;
  37     defined $$self ? $$self : 'NaN';
  38 }
  39
  40 sub as_xml {
  41     my $self = shift;
  42     return "<Number>" . (defined($$self) ? $$self : 'NaN') . "</Number>\n";
  43 }
  44
  45 sub value {
  46     my $self = shift;
  47     $$self;
  48 }
  49
  50 sub cmp {
  51     my $self = shift;
  52     my ($other, $swap) = @_;
  53     if ($swap) {
  54         return $other <=> $$self;
  55     }
  56     return $$self <=> $other;
  57 }
  58
  59 sub evaluate {
  60     my $self = shift;
  61     $self;
  62 }
  63
  64 sub to_boolean {
  65     my $self = shift;
  66     return $$self ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False;
  67 }
  68
  69 sub to_literal { XML::LibXML::Literal->new($_[0]->as_string); }
  70 sub to_number { $_[0]; }
  71
  72 sub string_value { return $_[0]->value }
  73
  74 1;
  75 __END__
  76
  77 =head1 NAME
  78
  79 XML::LibXML::Number - Simple numeric values.
  80
  81 =head1 DESCRIPTION
  82
  83 This class holds simple numeric values. It doesn't support -0, +/- Infinity,
  84 or NaN, as the XPath spec says it should, but I'm not hurting anyone I don't think.
  85
  86 =head1 API
  87
  88 =head2 new($num)
  89
  90 Creates a new XML::LibXML::Number object, with the value in $num. Does some
  91 rudimentary numeric checking on $num to ensure it actually is a number.
  92
  93 =head2 value()
  94
  95 Also as overloaded stringification. Returns the numeric value held.
  96
  97 =cut