File Coverage

blib/lib/Template/Plugin/LinkTo.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	20	20	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	60	62	96.7

package Template::Plugin::LinkTo;
use strict;
use warnings;
use base 'Template::Plugin';

our $VERSION = '0.093';
my @HTML_OPTIONS = qw/href target confirm title img class rel/;

my %escaped = ( '&' => 'amp', '<' => 'lt', '>' => 'gt', '"' => 'quot' );
sub escape {
    my $str = shift or return '';
    $str =~ s{([&<>"])(?!amp;)}{'&' . $escaped{$1} . ';'}msxgeo;
    $str;
}

sub link_to {
    my ($self, $text, $opt) = @_;

    $text = $opt->{img} ? qq{} : escape $text; #"
    my $result = $text;

    if (my $href = escape $opt->{href}) {
        my $target  = ($opt->{target} = escape $opt->{target})
                      ? qq/target="$opt->{target}"/
                      : '';
        my $confirm = ($opt->{confirm} = escape $opt->{confirm})
                      ? qq/onclick="return confirm('$opt->{confirm}');"/
                      : '';
        my $title   = ($opt->{title} = escape $opt->{title})
                      ? qq/title="$opt->{title}"/
                      : '';
        my $class   = ($opt->{class} = escape $opt->{class})
                      ? qq/class="$opt->{class}"/
                      : '';
        my $rel     = ($opt->{rel} = escape $opt->{rel})
                      ? qq/rel="$opt->{rel}"/
                      : '';

        for my $key (@HTML_OPTIONS) {
            delete $opt->{$key};
        }

        my $params;
        for my $key (sort keys %$opt) {
            $params .= qq/&$key=$opt->{$key}/;
        }
        if ($params) {
            $params = escape $params;
            $href .= $params;
            $href  =~ s/&/?/
                if $href !~ m/\?/;
        }

        $result = qq{$text};
        $result =~ s/\s{2,}/ /g;
        $result =~ s/\s>/>/;
    }

    return $result;
}

1;

__END__