File Coverage

web/cgi-bin/yatt.lib/YATT/Util/Enum.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	5	10	50.0
condition	6	10	60.0
subroutine	4	4	100.0
pod			n/a
total	41	52	78.8

# -*- mode: perl; coding: utf-8 -*-
package YATT::Util::Enum;
use strict;
use warnings FATAL => qw(all);

use YATT::Util::Symbol qw/define_const/;

sub import {
  my ($pack) = shift;
  my $callpack = caller;

  #----------------------------------------
  my %opts;
  for (; @_ and $_[0] =~ /^-(\w+)/; splice @_, 0, 2) {
    $opts{$1} = $_[1];
  }
  my $offset = delete $opts{offset} || 0;
  my $prefix = delete $opts{prefix} || "";
  my $export = delete $opts{export}
    ? $callpack . "::EXPORT" : "";
  my $export_ok = $export || delete $opts{export_ok}
    ? $callpack . "::EXPORT_OK" : "";
  die "Unknown options for " . __PACKAGE__ . "\n".
    join ", ", keys %opts if keys %opts;

  #----------------------------------------
  foreach my $item (@_) {
    my $full_name = $callpack . "::" . $prefix . $item;
    {
      define_const($full_name, $offset);
      push @{$export}, $full_name if $export;
      push @{$export_ok}, $full_name if $export_ok;
    }
  } continue {
    $offset++;
  }
}

1;