File Coverage

blib/lib/Template/Plugin/Octets.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	3	3	100.0
total	49	50	98.0

package Template::Plugin::Octets;

# ABSTRACT: TT2 plugin to format numeric values as binary octets

use 5.008009;
use strict;
use warnings;
use base 'Template::Plugin::Procedural';

our $VERSION = '0.18'; # VERSION
our $AUTHORITY = 'cpan:CHIM'; # AUTHORITY

use constant KIBIO_DIV => 1024;            # 1 KBio
use constant MIBIO_DIV => 1024*1024;       # 1 MBio
use constant GIBIO_DIV => 1024*1024*1024;  # 1 GBio

#
# kibioctets
sub kio { _formatter(KIBIO_DIV, $_[0]) }

#
# mebioctets
sub mio { _formatter(MIBIO_DIV, $_[0]) }

#
# gibioctets
sub gio { _formatter(GIBIO_DIV, $_[0]) }

#
# Format octets
sub _formatter {
    my ($divider, $value) = @_;

    $value = 0 if $value eq '' or !defined $value;

    $value = sprintf '%.1f', $value/$divider;

    return '~0' if $value eq '0.0';
    return $value;
}

1; # End of Template::Plugin::Octets

__END__