File Coverage

blib/lib/Magrathea/API/Abbreviation.pm

Criterion	Covered	Total	%
statement	17	31	54.8
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	23	41	56.1

package Magrathea::API::Abbreviation;

use strict;
use warnings;
use 5.10.0;

use parent qw{ Exporter };
use Text::Autoformat;
use Data::Dumper;

our @EXPORT_OK = qw{ abbreviate };

sub abbreviate($)
{
    my $check = shift;
    local $_;
    my $wanted = autoformat $check, {
        case => 'highlight'
    };
    $wanted =~ s/\s*$//;
    study $wanted;
    while () {
        chomp;
        s/#.*//;
        next if /^$/;
        my ($key, $val) = split /\t/;
        $wanted =~ s/\b$key\b/$val./g;
    }
    $wanted =~ s/\band\b/&/g;
    $wanted =~ s/\.\.$/./;
    return $wanted;
}




__DATA__