File Coverage

blib/lib/HTML/Acronyms.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	35	37	94.5

package HTML::Acronyms;
$HTML::Acronyms::VERSION = '0.0.4';
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};
    if ( exists $args->{link} )
    {
        $no_link = ( !$args->{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__