File Coverage

blib/lib/Text/AutoLink/Plugin.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	4	4	100.0
condition	4	7	57.1
subroutine	4	5	80.0
pod	3	3	100.0
total	31	36	86.1

package Text::AutoLink::Plugin;
use strict;
use warnings;

sub new
{
    my $class = shift;
    my %args  = @_;
    my $self = bless {
        target => $args{target} || '',
    }, $class;
    return $self;
}

sub process { die }

sub linkfy
{
    my $self = shift;
    my %args = @_;

    my $target = exists $args{target} ? ($args{target} || '') : $self->{target};
    if ($target) {
        $target = qq| target="$target"|;
    }
    return sprintf('%s',
        $args{href}, $target, $args{text} || $args{href});
}

1;

__END__