/usr/share/tiarra/main/Tiarra/DefineEnumMixin.pm is in tiarra 20100212-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | # -----------------------------------------------------------------------------
# $Id: DefineEnumMixin.pm 3004 2007-12-10 12:45:39Z topia $
# -----------------------------------------------------------------------------
# Definition Enum Mixin
# -----------------------------------------------------------------------------
# copyright (C) 2004 Topia <topia@clovery.jp>. all rights reserved.
package Tiarra::DefineEnumMixin;
use strict;
use warnings;
use Tiarra::Utils::DefineHelper;
use base qw(Tiarra::Utils::DefineHelper);
# usage:
# use Tiarra::DefineEnumMixin qw(enum1 enum2 enum3...);
# this import is equivalent as:
# BEGIN {
# use Tiarra::Utils;
# Tiarra::Utils->define_enum(qw(enum1 enum2 enum3...);
# }
# this module is deprecated.
# please use enum.pm instead.
sub import {
my $pkg = shift;
my @args = @_;
$pkg->do_with_define_exportlevel(
0,
sub {
$pkg->define_enum(@args);
});
}
1;
|