File Coverage

line	stmt	sub	pod	time	code
1					package Venus::True;
2
3	87	87		1825	use 5.018;
	87			297
4
5	87	87		466	use strict;
	87			202
	87			1760
6	87	87		413	use warnings;
	87			177
	87			2197
7
8	87	87		478	use Scalar::Util ();
	87			193
	87			8978
9
10					state $true = Scalar::Util::dualvar(1, "1");
11
12					use overload (
13	1	1		6	'!' => sub{!$true},
14	1	1		156	'bool' => sub{$true},
15	87			906	fallback => 1,
16	87	87		109942	);
	87			90604
17
18					# METHODS
19
20					sub new {
21	2	2	0	36	return bless({});
22					}
23
24					sub value {
25	3034	3034	1	15378	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() (Bool)
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, Al Newkirk.
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