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

LNATION / smallnum-1.02 / lib / smallnum.pm 

            

              
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

              
package smallnum;
use strict;
use warnings;
use POSIX ();
our $VERSION = '1.02';
use overload fallback => 1, 
        '""' => \&_num,
        '*' => \&_multiply,
        '/' => \&_divide;
our $precision = .01;
our $offset = 0.5555555;
sub import {
        $precision = $_[1] if $_[1];
        $offset = $_[2] if $_[2];
        overload::constant integer => \&_smallnum;
        overload::constant float => \&_smallnum;
        overload::constant binary => \&_smallnum;
}
sub _smallnum {
        my $n = shift;
        bless \$n, __PACKAGE__;
}
sub _num {
        my $num = _sref($_[0]);
        return $num >= 0 
                ? $precision * int(($num + ($offset * $precision)) / $precision)
                : $precision * POSIX::ceil(($num - $offset * $precision) / $precision);
}
sub _divide {
        my (@ot) = (_sref($_[0]), _sref($_[1])); 
        return $ot[0] && $ot[1]
                ? _smallnum($_[2] ? ($ot[1] / $ot[0]) : ($ot[0] / $ot[1])) 
                : _smallnum(0);
}
sub _multiply {
        my (@ot) = (_sref($_[0]), _sref($_[1])); 
        return _smallnum($ot[1] * $ot[0]);
}
sub _sref { ref $_[0] ? ${$_[0]} : $_[0] }
=head1 NAME
smallnum - Transparent "SmallNumber" support for Perl
=head1 VERSION
Version 1.02
=cut
=head1 SYNOPSIS
        use smallnum;
        10 + 20.452433483  # 30.45
        20.3743543 - 10.1 # 10.27
        15 / 5.34, # 2.81
        9 * 0.01, # 0.09
        ...
         
        use smallnum '0.1';
        10 + 20.452433483  # 30.5
        20.3743543 - 10.1 # 10.3
        15 / 5.34, # 2.8
        9 * 0.01, # 0.1
        ...
        use smallnum '1';
        10 + 20.452433483  # 31
        20.3743543 - 10.1 # 10
        15 / 5.34, # 3
        9 * 0.01, # 0
=head1 AUTHOR
LNATION, C<< <thisusedtobeanemail at gmail.com> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-smallnum at rt.cpan.org>, or through
the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue=smallnum>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
        perldoc smallnum
You can also look for information at:
=over 4
=item * RT: CPAN's request tracker (report bugs here)
L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=smallnum>
=item * Search CPAN
L<https://metacpan.org/release/smallnum>
=back
=head1 ACKNOWLEDGEMENTS
=head1 LICENSE AND COPYRIGHT
This software is Copyright (c) 2020->2025 by LNATION.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut
1; # End of smallnum