File Coverage

blib/lib/Exporter/Constants.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	36	38	94.7

package Exporter::Constants;
use strict;
use warnings;
use 5.010001;
our $VERSION = '0.03';

use Exporter;
use parent qw/Exporter/;

sub import {
    my $class = shift;
    my $pkg = caller(0);

    while (@_) {
        my ($array, $stuff) = splice @_, 0, 2;
        _declare_constant($pkg, $array, $stuff);
    }
}

sub _declare_constant {
    my ($pkg, $array, $stuff) = @_;

    no strict 'refs';
    while (my ($k, $v) = each %$stuff) {
        *{"$pkg\::$k"} = sub () { $v };
        unshift @$array, $k;
    }
}

1;
__END__