File Coverage

blib/lib/Const/Common.pm

Criterion	Covered	Total	%
statement	44	45	97.7
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	58	60	96.6

package Const::Common;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.01";

require Exporter;
use Data::Lock;

sub import {
    my $pkg   = caller;
    shift;
    my %constants = @_ == 1 ? %{ $_[0] } : @_;

    Data::Lock::dlock my $locked = \%constants;
    {
        no strict 'refs';
        ${ "$pkg\::_constants" } = $locked;
        for my $method (qw/const constants constant_names/) {
            *{ "$pkg\::$method" } = \&{ __PACKAGE__ . "::$method" };
        }
        push @{"$pkg\::ISA"}, ('Exporter');
        push @{"$pkg\::EXPORT"}, (keys %$locked);
    }

    require constant;
    @_ = ('constant', $locked);
    goto constant->can('import');
}

sub const {
    my ($pkg, $constant_name) = @_;
    $pkg->constants->{$constant_name};
}

sub constants {
    no strict 'refs';
    my $pkg = shift;
    ${ "$pkg\::_constants" };
}

sub constant_names {
    my $pkg = shift;
    sort keys %{ $pkg->constants };
}

1;
__END__