From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JDEGUEST / Locale-Unicode-Data-v1.3.1 / lib / Locale / Unicode / Data / Boolean.pod 

            

              
—
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

              
=encoding utf8
=head1 NAME
Locale::Unicode::Data::Boolean - Boolean Representation Class
=head1 SYNOPSIS
    my $bool = Locale::Unicode::Data::Boolean->true;
    # or
    my $bool = Locale::Unicode::Data::Boolean::true;
    # Now I have a Locale::Unicode::Data::Boolean object
    # Returns 1
    if( $bool )
    {
        # Do something
    }
    my $hash =
    {
        name => 'John Doe',
        active => $bool,
    };
    # Converting to json
    print( JSON->new->encode( $hash ), "\n" );
    # Would result in
    {
        name: "Jogn Doe",
        active: true
    }
=head1 VERSION
    v0.1.0
=head1 DESCRIPTION
This a class/package to represent boolean value and make sure they are recognised interchangeably as perl boolean, i.e. 1 or 0, or as L<JSON> bool, i.e. C<true> or C<false>
The code is taken and adapted from part of L<JSON> module.
=head1 CONSTRUCTOR
=head2 new
Provided with a true, or false value, and this instantiate a new C<Locale::Unicode::Data::Boolean> object and returns it.
=head1 METHODS
=head2 clone
Returns a new object with the boolean value of the current object.
=head2 true
This returns a perl true value i.e. 1 or C<true> when added into L<JSON>
=head2 false
This returns a perl false value i.e. 0 or C<false> when added into L<JSON>
=head2 is_bool
Provided with a value and this returns true if it is a L<Locale::Unicode::Data::Boolean> object
=head2 is_true
Provided with a value and this returns true if it is a L<Locale::Unicode::Data::Boolean> object and this is true.
=head2 is_false
Provided with a value and this returns true if it is a L<Locale::Unicode::Data::Boolean> object and this is false.
=head2 TO_JSON
This is called by L<JSON> to transform an object into json data format.
It returns C<\1> if true, or C<\0> otherwise. Those values are understood by L<JSON> and transcoded accordingly.
=head1 SERIALISATION
=for Pod::Coverage FREEZE
=for Pod::Coverage STORABLE_freeze
=for Pod::Coverage STORABLE_thaw
=for Pod::Coverage THAW
=for Pod::Coverage TO_JSON
Serialisation by L<CBOR|CBOR::XS>, L<Sereal> and L<Storable::Improved> (or the legacy L<Storable>) is supported by this package. To that effect, the following subroutines are implemented: C<FREEZE>, C<THAW>, C<STORABLE_freeze> and C<STORABLE_thaw>
=head1 AUTHOR
Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
=head1 COPYRIGHT & LICENSE
Copyright (c) 2024 DEGUEST Pte. Ltd.
You can use, copy, modify and redistribute this package and associated
files under the same terms as Perl itself.
=cut