| File | /usr/lib/perl5/XML/LibXML/Boolean.pm |
| Statements Executed | 17 |
| Total Time | 0.0005338 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::BEGIN |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::False |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::True |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::cmp |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::new |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::string_value |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::to_boolean |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::to_literal |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::to_number |
| 0 | 0 | 0 | 0s | 0s | XML::LibXML::Boolean::value |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | # $Id: Boolean.pm 709 2008-01-29 21:01:32Z pajas $ | |||
| 2 | # Copyright 2001-2002, AxKit.com Ltd. All rights reserved. | |||
| 3 | ||||
| 4 | package XML::LibXML::Boolean; | |||
| 5 | 3 | 113µs | 38µs | use XML::LibXML::Number; # spent 8µs making 1 call to import |
| 6 | 3 | 20µs | 7µs | use XML::LibXML::Literal; # spent 3µs making 1 call to import |
| 7 | 3 | 27µs | 9µs | use strict; # spent 11µs making 1 call to strict::import |
| 8 | ||||
| 9 | 3 | 49µs | 16µs | use vars qw ($VERSION); # spent 28µs making 1 call to vars::import |
| 10 | ||||
| 11 | 1 | 600ns | 600ns | $VERSION = "1.66"; # VERSION TEMPLATE: DO NOT CHANGE |
| 12 | ||||
| 13 | use overload | |||
| 14 | 1 | 18µs | 18µs | '""' => \&value, # spent 45µs making 1 call to overload::import |
| 15 | 2 | 303µs | 151µs | '<=>' => \&cmp; |
| 16 | ||||
| 17 | sub new { | |||
| 18 | my $class = shift; | |||
| 19 | my ($param) = @_; | |||
| 20 | my $val = $param ? 1 : 0; | |||
| 21 | bless \$val, $class; | |||
| 22 | } | |||
| 23 | ||||
| 24 | sub True { | |||
| 25 | my $class = shift; | |||
| 26 | my $val = 1; | |||
| 27 | bless \$val, $class; | |||
| 28 | } | |||
| 29 | ||||
| 30 | sub False { | |||
| 31 | my $class = shift; | |||
| 32 | my $val = 0; | |||
| 33 | bless \$val, $class; | |||
| 34 | } | |||
| 35 | ||||
| 36 | sub value { | |||
| 37 | my $self = shift; | |||
| 38 | $$self; | |||
| 39 | } | |||
| 40 | ||||
| 41 | sub cmp { | |||
| 42 | my $self = shift; | |||
| 43 | my ($other, $swap) = @_; | |||
| 44 | if ($swap) { | |||
| 45 | return $other <=> $$self; | |||
| 46 | } | |||
| 47 | return $$self <=> $other; | |||
| 48 | } | |||
| 49 | ||||
| 50 | sub to_number { XML::LibXML::Number->new($_[0]->value); } | |||
| 51 | sub to_boolean { $_[0]; } | |||
| 52 | sub to_literal { XML::LibXML::Literal->new($_[0]->value ? "true" : "false"); } | |||
| 53 | ||||
| 54 | sub string_value { return $_[0]->to_literal->value; } | |||
| 55 | ||||
| 56 | 1 | 3µs | 3µs | 1; |
| 57 | __END__ | |||
| 58 | ||||
| 59 | =head1 NAME | |||
| 60 | ||||
| 61 | XML::LibXML::Boolean - Boolean true/false values | |||
| 62 | ||||
| 63 | =head1 DESCRIPTION | |||
| 64 | ||||
| 65 | XML::LibXML::Boolean objects implement simple boolean true/false objects. | |||
| 66 | ||||
| 67 | =head1 API | |||
| 68 | ||||
| 69 | =head2 XML::LibXML::Boolean->True | |||
| 70 | ||||
| 71 | Creates a new Boolean object with a true value. | |||
| 72 | ||||
| 73 | =head2 XML::LibXML::Boolean->False | |||
| 74 | ||||
| 75 | Creates a new Boolean object with a false value. | |||
| 76 | ||||
| 77 | =head2 value() | |||
| 78 | ||||
| 79 | Returns true or false. | |||
| 80 | ||||
| 81 | =head2 to_literal() | |||
| 82 | ||||
| 83 | Returns the string "true" or "false". | |||
| 84 | ||||
| 85 | =cut |