File Coverage

blib/lib/Readonly/Values/Boolean.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Readonly::Values::Boolean;
2              
3 1     1   230810 use strict;
  1         2  
  1         40  
4 1     1   6 use warnings;
  1         3  
  1         60  
5              
6 1     1   592 use Readonly::Enum;
  1         5252  
  1         43  
7 1     1   716 use Readonly;
  1         5499  
  1         126  
8 1     1   13 use Exporter qw(import);
  1         2  
  1         239  
9              
10             =head1 NAME
11              
12             Readonly::Values::Boolean - Boolean Constants
13              
14             =head1 VERSION
15              
16             Version 0.01
17              
18             =cut
19              
20             our $VERSION = '0.01';
21              
22             =head1 SYNOPSIS
23              
24             use Readonly::Values::Boolean;
25              
26             my $value = $Readonly::Values::Boolean::booleans{'false'};
27              
28             =cut
29              
30             Readonly::Enum our ($FALSE, $TRUE) => 0;
31              
32             Readonly::Hash our %booleans => (
33             'off' => $FALSE,
34             'false' => $FALSE,
35             'FALSE' => $FALSE,
36             'no' => $FALSE,
37             '0' => $FALSE,
38             'on' => $TRUE,
39             'true' => $TRUE,
40             'TRUE' => $TRUE,
41             'yes' => $TRUE,
42             '1' => $TRUE,
43             );
44              
45             our @EXPORT = qw(
46             $FALSE $TRUE
47             %booleans
48             );
49              
50             =head1 AUTHOR
51              
52             Nigel Horne, C<< >>
53              
54             =head1 BUGS
55              
56             =head1 SEE ALSO
57              
58             =head1 SUPPORT
59              
60             This module is provided as-is without any warranty.
61              
62             Please report any bugs or feature requests to C,
63             or through the web interface at
64             L.
65             I will be notified, and then you'll
66             automatically be notified of progress on your bug as I make changes.
67              
68             You can find documentation for this module with the perldoc command.
69              
70             perldoc Readonly::Values::Boolean
71              
72             You can also look for information at:
73              
74             =over 4
75              
76             =item * MetaCPAN
77              
78             L
79              
80             =item * RT: CPAN's request tracker
81              
82             L
83              
84             =item * CPAN Testers' Matrix
85              
86             L
87              
88             =item * CPAN Testers Dependencies
89              
90             L
91              
92             =back
93              
94             =head1 LICENSE AND COPYRIGHT
95              
96             Copyright 2027 Nigel Horne.
97              
98             Usage is subject to licence terms.
99              
100             The licence terms of this software are as follows:
101              
102             =over 4
103              
104             =item * Personal single user, single computer use: GPL2
105              
106             =item * All other users (including Commercial, Charity, Educational, Government)
107             must apply in writing for a licence for use from Nigel Horne at the
108             above e-mail.
109              
110             =back
111              
112             =cut
113              
114             1;