File Coverage

blib/lib/Template/Plugin/Lingua/EN/NameCase.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	37	38	97.3

package Template::Plugin::Lingua::EN::NameCase;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = 0.02;

use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Lingua::EN::NameCase qw( nc );

$Template::Stash::SCALAR_OPS->{'nc'} = \&_nc;

sub new {
    my ($class, $context, $options) = @_;

    # now define the filter and return the plugin
    $context->define_filter('nc', \&_nc);
    return bless {}, $class;
}

sub _nc {
    my $options = ref $_[-1] eq 'HASH' ? pop : {};
    return nc(join('', @_));
}

1;

__END__