File Coverage

blib/lib/Template/Plugin/Jcode.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	1	1	100.0
total	38	43	88.3

package Template::Plugin::Jcode;

use strict;
use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Jcode;
use vars qw($VERSION $AUTOLOAD);
$VERSION = '0.02';

$Template::Stash::SCALAR_OPS->{ jcode } = sub {
    my $str = shift;
    return Template::Plugin::Jcode->new($str);
};

sub new {
    my($class, $str) = @_;
    bless { string => $str }, $class;
}

sub AUTOLOAD {
    my $self = shift;
    my $method = $AUTOLOAD;

    $method =~ s/.*:://;
    return if $method eq 'DESTROY';

    my $jcode = Jcode->new($self->{string});
    return $self->_throw("no such Jcode method: $method")
	unless UNIVERSAL::can($jcode, $method);
    return $jcode->$method(@_);
}

sub _throw {
    my $self = shift;
    die Template::Exception->new('jcode', join(', ', @_));
}

1;
__END__