File Coverage

blib/lib/Unicode/Fraction.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	1	100.0
total	40	43	93.0

use strict;
use warnings;
package Unicode::Fraction;
# ABSTRACT: easy generation of UTF-8 fractions

use Carp;
use Unicode::Subscript qw(subscript superscript);

BEGIN {
    use Exporter;
    our @ISA = qw(Exporter);
    our @EXPORT_OK = qw(fraction);
}

my $SOLIDUS = "\x{2044}";
my $ONE_OVER = "\x{215f}";

my %FRACTION_CHAR = (
    '1/2' => "\x{00bd}",
    '0/3' => "\x{2189}",
    '1/3' => "\x{2153}",
    '2/3' => "\x{2154}",
    '1/4' => "\x{00bc}",
    '3/4' => "\x{00be}",
    '1/5' => "\x{2155}",
    '2/5' => "\x{2156}",
    '3/5' => "\x{2157}",
    '4/5' => "\x{2158}",
    '1/6' => "\x{2159}",
    '5/6' => "\x{215a}",
    '1/7' => "\x{2150}",
    '1/8' => "\x{215b}",
    '3/8' => "\x{215c}",
    '5/8' => "\x{215d}",
    '7/8' => "\x{215e}",
    '1/9' => "\x{2151}",
    '1/10' => "\x{2152}",
);


sub fraction {
    my ($num, $denom) = @_;
    defined $num && defined $denom or croak 'usage: fraction($num, $denom)';

    if (my $frac = _fraction_char($num, $denom)) {
        return $frac;
    }
    elsif ($num == 1) {
        return $ONE_OVER . subscript($denom);
    }
    else {
        return superscript($num) . $SOLIDUS . subscript($denom);
    }
}

# Return the special Unicode char for selected fractions
# e.g. 1/2, 3/8 etc. or return undef
sub _fraction_char {
    my ($num, $denom) = @_;
    return $FRACTION_CHAR{"$num/$denom"};
}


1;


__END__