File Coverage

blib/lib/YATT/Lite/Util/Enum.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	5	5	100.0
pod			n/a
total	46	47	97.8

package YATT::Lite::Util::Enum;
use strict;
use warnings qw(FATAL all NONFATAL misc);
use YATT::Lite::Util qw(globref define_const);

sub import {
  my $pack = shift;
  my $callpack = caller;
  my ($export, $export_ok) = map {
    my $glob = globref($callpack, $_);
    unless (*{$glob}{ARRAY}) {
      *$glob = [];
    }
    *{$glob}{ARRAY};
  } qw(EXPORT EXPORT_OK);
  while (@_ and my ($prefix, $enumList) = splice @_, 0, 2) {
    my $offset = 0;
    foreach my $item (@$enumList) {
      foreach my $name (split /=/, $item) {
	my $shortName = $prefix . $name;
	my $fullName = $callpack . "::" . $shortName;
	# print STDERR "$fullName\n";
	my $glob = do {no strict 'refs'; \*$fullName};
	my $i = $offset;
	define_const($glob, $i);
	unless ($shortName =~ /^_/) {
	  push @$export_ok, $shortName;
	  push @$export, $shortName;
	}
      }
    } continue {
      $offset++;
    }
  }
}

1;