File Coverage

line	stmt	sub	pod	time	code
1					package Venus::True;
2
3	96	96		1970	use 5.018;
	96			339
4
5	96	96		553	use strict;
	96			206
	96			2410
6	96	96		569	use warnings;
	96			229
	96			3152
7
8	96	96		674	use Scalar::Util ();
	96			255
	96			9977
9
10					state $true = Scalar::Util::dualvar(1, "1");
11
12					use overload (
13	0	0		0	'!' => sub{!$true},
14	3	3		153	'bool' => sub{$true},
15	96			1047	fallback => 1,
16	96	96		127862	);
	96			106169
17
18					# METHODS
19
20					sub new {
21	2	2	0	33	return bless({});
22					}
23
24					sub value {
25	23964	23964	1	85142	return $true;
26					}
27
28					1;
29
30
31
32					=head1 NAME
33
34					Venus::True - True Class
35
36					=cut
37
38					=head1 ABSTRACT
39
40					True Class for Perl 5
41
42					=cut
43
44					=head1 SYNOPSIS
45
46					package main;
47
48					use Venus::True;
49
50					my $true = Venus::True->new;
51
52					# $true->value;
53
54					=cut
55
56					=head1 DESCRIPTION
57
58					This package provides the global C value used in L and
59					the L function.
60
61					=cut
62
63					=head1 METHODS
64
65					This package provides the following methods:
66
67					=cut
68
69					=head2 value
70
71					value() (boolean)
72
73					The value method returns value representing the global C value.
74
75					I>
76
77					=over 4
78
79					=item value example 1
80
81					# given: synopsis;
82
83					my $value = $true->value;
84
85					# 1
86
87					=back
88
89					=cut
90
91					=head1 AUTHORS
92
93					Awncorp, C
94
95					=cut
96
97					=head1 LICENSE
98
99					Copyright (C) 2000, Awncorp, C.
100
101					This program is free software, you can redistribute it and/or modify it under
102					the terms of the Apache license version 2.0.
103
104					=cut