The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BARBIE / Labyrinth-5.32 / lib / Labyrinth / Filters.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

              
package Labyrinth::Filters;
use warnings;
use strict;
use vars qw( $VERSION $AUTOLOAD @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT );
$VERSION = '5.32';
=head1 NAME
Labyrinth::Filters - Basic Filters Handler for Labyrinth
=head1 DESCRIPTION
Provides basic filter methods used within Labyrinth.
=cut
# -------------------------------------
# Export Details
require Exporter;
@ISA       = qw(Exporter);
%EXPORT_TAGS = (
    'all' => [ qw( float2 float3 float5 ) ]
);
@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@EXPORT    = ( @{ $EXPORT_TAGS{'all'} } );
#----------------------------------------------------------------------------
# Libraries
use Labyrinth::Audit;
use Labyrinth::Variables;
#----------------------------------------------------------------------------
# Subroutines
sub float2 { return _filter_float( @_, "%.2f" ) }
sub float3 { return _filter_float( @_, "%.3f" ) }
sub float5 { return _filter_float( @_, "%.5f" ) }
sub filter_float2 { return _filter_float( @_, "%.2f" ) }
sub filter_float3 { return _filter_float( @_, "%.3f" ) }
sub filter_float5 { return _filter_float( @_, "%.5f" ) }
sub _filter_float {
    my ($value,$pattern) = @_;
    return  unless(defined $value);
#LogDebug("filter:value=$value, pattern=$pattern");
    my ($num) = $value =~ m< ^ ([\d.]+) $ >x;
    return  unless(defined $num);
#LogDebug("filter:num=$num, val=" . ( sprintf $pattern, $num ));
    return sprintf $pattern, $num;
}
#----------------------------------------------------------------------------
sub AUTOLOAD {
    my $name = $AUTOLOAD;
    no strict qw/refs/;
    my ($num) = $name =~ m/^.*:(?:filter_)?float(\d+)/;
    return  unless(defined $num);
    my $fmt = '%.' . $num . 'f';
    return _filter_float( @_, $fmt )
}
1;
__END__
=head1 FUNCTIONS
=head2 Filters
=over 4
=item float2
=item float3
=item float5
Basic filters for 2, 3 and 5 decimal places.
=item filter_float2
=item filter_float3
=item filter_float5
DFV named filters for 2, 3 and 5 decimal places.
=back
=head1 SEE ALSO
  Labyrinth
=head1 AUTHOR
Barbie, <barbie@missbarbell.co.uk> for
Miss Barbell Productions, L<http://www.missbarbell.co.uk/>
=head1 COPYRIGHT & LICENSE
  Copyright (C) 2002-2015 Barbie for Miss Barbell Productions
  All Rights Reserved.
  This module is free software; you can redistribute it and/or
  modify it under the Artistic License 2.0.
=cut