File Coverage

blib/lib/Text/ClearSilver/FunctionSet.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	47	48	97.9

package Text::ClearSilver::FunctionSet;
use strict;
use warnings;

use Exporter ();
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(usage);

sub usage {
    require Carp;
    Carp::croak("Usage: @_");
}


sub load {
    my($self, $monikers) = @_;

    my %set;

    foreach my $moniker(ref($monikers) ? @{$monikers} : $monikers) {
        my $module = "Text/ClearSilver/FunctionSet/$moniker.pm";
        $module =~ s{::}{/}g; # $moniker can include '::'

        require $module;

        my $package = __PACKAGE__ . '::' . $moniker . '::';
        my $stash = do {
            no strict 'refs';
            \%{$package};
        };

        while(my $key = each %{$stash}){
            if($key =~ s/^_function_//){
                $set{$key} = do {
                    no strict 'refs';
                    \&{$package . '_function_' . $key};
                };
            }
        }
    }

    return \%set;
}

1;
__END__