File | /usr/lib/perl5/XML/LibXML/Number.pm |
Statements Executed | 17 |
Total Time | 0.0006367 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | as_string | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | as_xml | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | cmp | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | evaluate | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | new | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | string_value | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | to_boolean | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | to_literal | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | to_number | XML::LibXML::Number::
0 | 0 | 0 | 0s | 0s | value | XML::LibXML::Number::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | # $Id: Number.pm 709 2008-01-29 21:01:32Z pajas $ | |||
2 | ||||
3 | package XML::LibXML::Number; | |||
4 | 3 | 31µs | 10µs | use XML::LibXML::Boolean; # spent 4µs making 1 call to import |
5 | 3 | 109µs | 36µs | use XML::LibXML::Literal; # spent 4µs making 1 call to import |
6 | 3 | 29µs | 10µs | use strict; # spent 11µs making 1 call to strict::import |
7 | ||||
8 | 3 | 58µs | 19µs | use vars qw ($VERSION); # spent 26µs making 1 call to vars::import |
9 | 1 | 600ns | 600ns | $VERSION = "1.66"; # VERSION TEMPLATE: DO NOT CHANGE |
10 | ||||
11 | use overload | |||
12 | '""' => \&value, # spent 67µs making 1 call to overload::import | |||
13 | '0+' => \&value, | |||
14 | 3 | 406µs | 135µs | '<=>' => \&cmp; |
15 | ||||
16 | sub new { | |||
17 | my $class = shift; | |||
18 | my $number = shift; | |||
19 | if ($number !~ /^\s*(-\s*)?(\d+(\.\d*)?|\.\d+)\s*$/) { | |||
20 | $number = undef; | |||
21 | } | |||
22 | else { | |||
23 | $number =~ s/\s+//g; | |||
24 | } | |||
25 | bless \$number, $class; | |||
26 | } | |||
27 | ||||
28 | sub as_string { | |||
29 | my $self = shift; | |||
30 | defined $$self ? $$self : 'NaN'; | |||
31 | } | |||
32 | ||||
33 | sub as_xml { | |||
34 | my $self = shift; | |||
35 | return "<Number>" . (defined($$self) ? $$self : 'NaN') . "</Number>\n"; | |||
36 | } | |||
37 | ||||
38 | sub value { | |||
39 | my $self = shift; | |||
40 | $$self; | |||
41 | } | |||
42 | ||||
43 | sub cmp { | |||
44 | my $self = shift; | |||
45 | my ($other, $swap) = @_; | |||
46 | if ($swap) { | |||
47 | return $other <=> $$self; | |||
48 | } | |||
49 | return $$self <=> $other; | |||
50 | } | |||
51 | ||||
52 | sub evaluate { | |||
53 | my $self = shift; | |||
54 | $self; | |||
55 | } | |||
56 | ||||
57 | sub to_boolean { | |||
58 | my $self = shift; | |||
59 | return $$self ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False; | |||
60 | } | |||
61 | ||||
62 | sub to_literal { XML::LibXML::Literal->new($_[0]->as_string); } | |||
63 | sub to_number { $_[0]; } | |||
64 | ||||
65 | sub string_value { return $_[0]->value } | |||
66 | ||||
67 | 1 | 3µs | 3µs | 1; |
68 | __END__ | |||
69 | ||||
70 | =head1 NAME | |||
71 | ||||
72 | XML::LibXML::Number - Simple numeric values. | |||
73 | ||||
74 | =head1 DESCRIPTION | |||
75 | ||||
76 | This class holds simple numeric values. It doesn't support -0, +/- Infinity, | |||
77 | or NaN, as the XPath spec says it should, but I'm not hurting anyone I don't think. | |||
78 | ||||
79 | =head1 API | |||
80 | ||||
81 | =head2 new($num) | |||
82 | ||||
83 | Creates a new XML::LibXML::Number object, with the value in $num. Does some | |||
84 | rudimentary numeric checking on $num to ensure it actually is a number. | |||
85 | ||||
86 | =head2 value() | |||
87 | ||||
88 | Also as overloaded stringification. Returns the numeric value held. | |||
89 | ||||
90 | =cut |