File Coverage

lib/enum/prefix.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	40	41	97.5

package enum::prefix;
use warnings;
use strict;
use 5.006;
our $VERSION = '0.02';

my $ident = '[^\W_0-9]\w*';

sub import
{
	my $class = shift;
	my $prefix = shift;
	my $name_sub_suffix = shift;
	@_ or return;

	my $pkg = caller() . '::';

	my $index = 0;

	my @enum;
	no strict 'refs';
	for my $name (@_)
	{
		if ( $name =~ /^$ident$/o )
		{
			my $n = $index;
			$index++;
			*{ $pkg . $prefix . '_' . $name } = sub { $n };
			$enum[$n] = $name;
		}
	}

	*{$pkg. $prefix . $name_sub_suffix } = sub($) { $enum[ $_[0] ] };
}

1;

__END__