File Coverage

line	stmt	sub	pod	time	code
1					package Venus::False;
2
3	86	86		1553	use 5.018;
	86			299
4
5	86	86		465	use strict;
	86			156
	86			1965
6	86	86		422	use warnings;
	86			218
	86			2488
7
8	86	86		474	use Scalar::Util ();
	86			178
	86			7577
9
10					state $false = Scalar::Util::dualvar(0, "0");
11
12					use overload (
13	2	2		15	'!' => sub{!$false},
14	0	0		0	'bool' => sub{$false},
15	86			1060	fallback => 1,
16	86	86		625	);
	86			244
17
18					# METHODS
19
20					sub new {
21	2	2	0	43	return bless({});
22					}
23
24					sub value {
25	10326	10326	1	36465	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() (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 = $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, 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