File Coverage

blib/lib/HTML/Fraction.pm

Criterion	Covered	Total	%
statement	60	60	100.0
branch	8	16	50.0
condition			n/a
subroutine	15	15	100.0
pod	4	4	100.0
total	87	95	91.5

package HTML::Fraction;
use strict;
use warnings;
our $VERSION = "0.50";

# numbers with an exact fractional part
my %dec = (
  '25'  => "1/4",
  '5'   => "1/2",
  '75'  => "3/4",
  '2'   => "1/5",
  '4'   => "2/5",
  '6'   => "3/5",
  '8'   => "4/5",
  '125' => "1/8",
  '375' => "3/8",
  '625' => "5/8",
  '875' => "7/8",
  '1'   => "1/10",
);

# two decimal
my %tdp = (
  '13' => "1/8",
  '38' => "3/8",
  '63' => "5/8",
  '88' => "7/8",
);

my %name2char = (
  '1/4' => '¼',
  '1/2' => '½',
  '3/4' => '¾',
  '0/3' => '↉',
  '1/3' => '⅓',
  '2/3' => '⅔',
  '1/5' => '⅕',
  '2/5' => '⅖',
  '3/5' => '⅗',
  '4/5' => '⅘',
  '1/6' => '⅙',
  '5/6' => '⅚',
  '1/7' => '⅐',
  '1/8' => '⅛',
  '3/8' => '⅜',
  '5/8' => '⅝',
  '7/8' => '⅞',
  '1/9' => '⅑',
  '1/10' => '⅒',
);

sub _name2char { shift; $name2char{shift()} }

sub new { bless {}, shift }

sub tweak
{
  my ($self, $in) = @_;
  return $self->tweak_frac($self->tweak_dec($in));
}

sub tweak_frac
{
  my ($self, $in) = @_;

  my $thingy = join '|', keys %name2char;
  $in =~ s{\b($thingy)\b}{
    $self->_name2char($1)
  }ge;

  # repeatin
  return $in;
}

sub tweak_dec
{
  my ($self, $in) = @_;

  my $thingy = join '|', keys %dec;
  $in =~ s{([0-9]*)\.($thingy)0*\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char($dec{$2})
  }ge;

  $thingy = join '|', keys %tdp;
  $in =~ s{([0-9]*)\.($thingy)\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char($tdp{$2})
  }ge;

  $in =~ s{([0-9]*)\.33+\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("1/3")
  }ge;

  $in =~ s{([0-9]*)\.66*7+\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("2/3")
  }ge;

  $in =~ s{([0-9]*)\.83+\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("5/6")
  }ge;

  $in =~ s{([0-9]*)\.16*7+\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("1/6")
  }ge;

  $in =~ s{([0-9]*)\.11+\b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("1/9")
  }ge;

  # 0.142857142857143
  $in =~ s{
      ([0-9]*)
      \.
      14
      (?:
        3|2(?:
            9|8(?:
              6|5(?:
                7(?: 1(?:4\d*)? )?
                 )
               )
           )
      )?
  \b}{
    no warnings;
    ($1+0 ? $1 : "") . $self->_name2char("1/7")
  }gex;

  return $in;
}


1;

__END__