File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	29	32	90.6

package Dancer2::Template::Handlebars::Helpers 0.3;

# ABSTRACT: parent class for Handlebars' helper collections

use strict;
use warnings;

use Sub::Attribute;

my %HELPERS;

sub HANDLEBARS_HELPERS {
    my $class = shift;
    %{ $HELPERS{$class} || {} };
}

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

    my $fname       = $class . '::' . *{$sym_ref}{NAME};
    my $helper_name = $attr_data || *{$sym_ref}{NAME};

    $HELPERS{$class}{$helper_name} = \&$fname;
}

1;

__END__