File Coverage

blib/lib/Dancer/Template/Handlebars/Helpers.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	1	0.0
total	27	29	93.1

package Dancer::Template::Handlebars::Helpers;
BEGIN {
  $Dancer::Template::Handlebars::Helpers::AUTHORITY = 'cpan:YANICK';
}
# ABSTRACT: parent class for Handlebars' helper collections
$Dancer::Template::Handlebars::Helpers::VERSION = '0.2.1';

use strict;
use warnings;

use Sub::Attribute;

sub Helper :ATTR_SUB {
    my( $class, $sym_ref, $code_ref, $attr_name, $attr_data ) = @_;

    my $fname = *{ $sym_ref }{NAME};
    my $helper_name = $attr_data || *{ $sym_ref }{NAME};

    eval qq{
        package $class;
        \$${class}::HANDLEBARS_HELPERS{$helper_name} = \\\&$fname;
    } or die $@;
}

1;

__END__