File Coverage

blib/lib/HTML/Acronyms.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	31	33	93.9

package HTML::Acronyms;
$HTML::Acronyms::VERSION = '0.0.2';
use strict;
use warnings;
use 5.014;

use Carp ();

use Moo;

has 'dict' => (
    is       => 'ro',
    required => 1,
);

sub abbr
{
    my ( $self, $args ) = @_;

    my $key     = $args->{key};
    my $no_link = $args->{no_link};

    my $rec = $self->dict->{$key};

    if ( !defined $rec )
    {
        Carp::confess("unknown key '$key'!");
    }

    my $tag = qq{$rec->{abbr}};

    return +{ html => ( $no_link ? $tag : qq{$tag} ),
    };
}

1;

__END__