← 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/Literal.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sXML::LibXML::Literal::::BEGIN@12XML::LibXML::Literal::BEGIN@12
0000s0sXML::LibXML::Literal::::BEGIN@13XML::LibXML::Literal::BEGIN@13
0000s0sXML::LibXML::Literal::::BEGIN@15XML::LibXML::Literal::BEGIN@15
0000s0sXML::LibXML::Literal::::BEGIN@16XML::LibXML::Literal::BEGIN@16
0000s0sXML::LibXML::Literal::::BEGIN@18XML::LibXML::Literal::BEGIN@18
0000s0sXML::LibXML::Literal::::BEGIN@22XML::LibXML::Literal::BEGIN@22
0000s0sXML::LibXML::Literal::::__ANON__XML::LibXML::Literal::__ANON__ (xsub)
0000s0sXML::LibXML::Literal::::as_stringXML::LibXML::Literal::as_string
0000s0sXML::LibXML::Literal::::as_xmlXML::LibXML::Literal::as_xml
0000s0sXML::LibXML::Literal::::cmpXML::LibXML::Literal::cmp
0000s0sXML::LibXML::Literal::::evaluateXML::LibXML::Literal::evaluate
0000s0sXML::LibXML::Literal::::newXML::LibXML::Literal::new
0000s0sXML::LibXML::Literal::::string_valueXML::LibXML::Literal::string_value
0000s0sXML::LibXML::Literal::::to_booleanXML::LibXML::Literal::to_boolean
0000s0sXML::LibXML::Literal::::to_literalXML::LibXML::Literal::to_literal
0000s0sXML::LibXML::Literal::::to_numberXML::LibXML::Literal::to_number
0000s0sXML::LibXML::Literal::::valueXML::LibXML::Literal::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# 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
10package XML::LibXML::Literal;
11
12use XML::LibXML::Boolean;
13use XML::LibXML::Number;
14
15use strict;
16use warnings;
17
18use vars qw ($VERSION);
19$VERSION = "2.0207"; # VERSION TEMPLATE: DO NOT CHANGE
20
21use overload
22 '""' => \&value,
23 'cmp' => \&cmp;
24
25sub new {
26 my $class = shift;
27 my ($string) = @_;
28
29# $string =~ s/"/"/g;
30# $string =~ s/'/'/g;
31
32 bless \$string, $class;
33}
34
35sub as_string {
36 my $self = shift;
37 my $string = $$self;
38 $string =~ s/'/'/g;
39 return "'$string'";
40}
41
42sub as_xml {
43 my $self = shift;
44 my $string = $$self;
45 return "<Literal>$string</Literal>\n";
46}
47
48sub value {
49 my $self = shift;
50 $$self;
51}
52
53sub cmp {
54 my $self = shift;
55 my ($cmp, $swap) = @_;
56 if ($swap) {
57 return $cmp cmp $$self;
58 }
59 return $$self cmp $cmp;
60}
61
62sub evaluate {
63 my $self = shift;
64 $self;
65}
66
67sub to_boolean {
68 my $self = shift;
69 return (length($$self) > 0) ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False;
70}
71
72sub to_number { return XML::LibXML::Number->new($_[0]->value); }
73sub to_literal { return $_[0]; }
74
75sub string_value { return $_[0]->value; }
76
771;
78__END__