File Coverage

blib/lib/Template/Plugin/Filter/IDN.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	7	8	87.5
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	47	51	92.1

#
# This file is part of Template-Plugin-Filter-IDN
#
# This software is copyright (c) 2018 by Michael Schout.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

package Template::Plugin::Filter::IDN;
$Template::Plugin::Filter::IDN::VERSION = '0.04';
# ABSTRACT: Template Toolkit plugin for encoding and decoding International Domain Names.

use strict;
use warnings;
use List::Util 'any';

use parent 'Template::Plugin::Filter';

use Carp ();
use Net::IDN::Encode ();

our $DYNAMIC = 1;

sub init {
    my $self = shift;

    $self->install_filter('idn');

    return $self;
}

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

    my ($type) = @$args;

    # if no "type" was given, try to guess what we should do.  If we have
    # non-ascii chars, assume that we want to_ascii
    unless (defined $type) {
        $type = ($text =~ /[^ -~\s]/) ? 'to_ascii' : 'to_utf8';
    }

    if (any { $_ eq $type } qw(encode to_ascii)) {
        return Net::IDN::Encode::domain_to_ascii($text);
    }
    elsif (any { $_ eq $type } qw(decode to_utf8)) {
        return Net::IDN::Encode::domain_to_unicode($text);
    }
    else {
        Carp::croak "Unknown IDN filter action: $type";
    }
}

1;

__END__