← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:09 2021

Filename/usr/local/lib/perl5/site_perl/mach/5.32/XML/LibXML/Boolean.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sXML::LibXML::Boolean::::BEGIN@12XML::LibXML::Boolean::BEGIN@12
0000s0sXML::LibXML::Boolean::::BEGIN@13XML::LibXML::Boolean::BEGIN@13
0000s0sXML::LibXML::Boolean::::BEGIN@14XML::LibXML::Boolean::BEGIN@14
0000s0sXML::LibXML::Boolean::::BEGIN@15XML::LibXML::Boolean::BEGIN@15
0000s0sXML::LibXML::Boolean::::BEGIN@17XML::LibXML::Boolean::BEGIN@17
0000s0sXML::LibXML::Boolean::::BEGIN@22XML::LibXML::Boolean::BEGIN@22
0000s0sXML::LibXML::Boolean::::FalseXML::LibXML::Boolean::False
0000s0sXML::LibXML::Boolean::::TrueXML::LibXML::Boolean::True
0000s0sXML::LibXML::Boolean::::__ANON__XML::LibXML::Boolean::__ANON__ (xsub)
0000s0sXML::LibXML::Boolean::::cmpXML::LibXML::Boolean::cmp
0000s0sXML::LibXML::Boolean::::newXML::LibXML::Boolean::new
0000s0sXML::LibXML::Boolean::::string_valueXML::LibXML::Boolean::string_value
0000s0sXML::LibXML::Boolean::::to_booleanXML::LibXML::Boolean::to_boolean
0000s0sXML::LibXML::Boolean::::to_literalXML::LibXML::Boolean::to_literal
0000s0sXML::LibXML::Boolean::::to_numberXML::LibXML::Boolean::to_number
0000s0sXML::LibXML::Boolean::::valueXML::LibXML::Boolean::value
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# $Id$
2#
3#
4# This is free software, you may use it and distribute it under the same terms as
5# Perl itself.
6#
7# Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas
8#
9#
10
11package XML::LibXML::Boolean;
12use XML::LibXML::Number;
13use XML::LibXML::Literal;
14use strict;
15use warnings;
16
17use vars qw ($VERSION);
18
19$VERSION = "2.0207"; # VERSION TEMPLATE: DO NOT CHANGE
20
21use overload
22 '""' => \&value,
23 '<=>' => \&cmp;
24
25sub new {
26 my $class = shift;
27 my ($param) = @_;
28 my $val = $param ? 1 : 0;
29 bless \$val, $class;
30}
31
32sub True {
33 my $class = shift;
34 my $val = 1;
35 bless \$val, $class;
36}
37
38sub False {
39 my $class = shift;
40 my $val = 0;
41 bless \$val, $class;
42}
43
44sub value {
45 my $self = shift;
46 $$self;
47}
48
49sub cmp {
50 my $self = shift;
51 my ($other, $swap) = @_;
52 if ($swap) {
53 return $other <=> $$self;
54 }
55 return $$self <=> $other;
56}
57
58sub to_number { XML::LibXML::Number->new($_[0]->value); }
59sub to_boolean { $_[0]; }
60sub to_literal { XML::LibXML::Literal->new($_[0]->value ? "true" : "false"); }
61
62sub string_value { return $_[0]->to_literal->value; }
63
641;
65__END__