File Coverage

line	stmt	sub	pod	time	code
1					package Venus::False;
2
3	95	95		1845	use 5.018;
	95			354
4
5	95	95		605	use strict;
	95			195
	95			2298
6	95	95		522	use warnings;
	95			230
	95			2880
7
8	95	95		589	use Scalar::Util ();
	95			232
	95			9273
9
10					state $false = Scalar::Util::dualvar(0, "0");
11
12					use overload (
13	2	2		34	'!' => sub{!$false},
14	0	0		0	'bool' => sub{$false},
15	95			1388	fallback => 1,
16	95	95		696	);
	95			219
17
18					# METHODS
19
20					sub new {
21	2	2	0	44	return bless({});
22					}
23
24					sub value {
25	17574	17574	1	57595	return $false;
26					}
27
28					1;
29
30
31
32					=head1 NAME
33
34					Venus::False - False Class
35
36					=cut
37
38					=head1 ABSTRACT
39
40					False Class for Perl 5
41
42					=cut
43
44					=head1 SYNOPSIS
45
46					package main;
47
48					use Venus::False;
49
50					my $false = Venus::False->new;
51
52					# $false->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 = $false->value;
84
85					# 0
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