File Coverage

blib/lib/Template/Plugin/MobileJPPictogram.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Template::Plugin::MobileJPPictogram;

use strict;
use warnings;
use 5.0080008;
our $VERSION = '0.06';

require Template::Plugin;
use base qw(Template::Plugin);

use Encode::JP::Mobile ':props';
use Encode::JP::Mobile::Charnames;

sub new {
    my ( $self, $context, @args ) = @_;
    $context->define_filter( 'pictogram_charname', \&_charname, 1 );
    $context->define_filter( 'pictogram_unicode',  \&_unicode,  1 );
    return $self;
}

sub _charname {
    my ( $ctx, $unicode ) = @_;
    die "unicode string missing for pictogram_charname" unless $unicode;

    sub {
        local $_ = shift;

        s{(\p{InMobileJPPictograms})}{
            my $name = Encode::JP::Mobile::Charnames::unicode2name(unpack 'U*', $1);
            sprintf $unicode, $name;
        }ge;

        $_;
    };
}

sub _unicode {
    my ( $ctx, $unicode ) = @_;
    die "unicode string missing for pictogram_unicode" unless $unicode;

    sub {
        local $_ = shift;

        s{(\p{InMobileJPPictograms})}{
            sprintf $unicode, unpack 'U*', $1;
        }ge;

        $_;
    };
}

1;
__END__