File Coverage

blib/lib/Labyrinth/Filters.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

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__