diff options
Diffstat (limited to 'lib/ManaTools/Shared/Action.pm')
-rw-r--r-- | lib/ManaTools/Shared/Action.pm | 30 |
1 files changed, 2 insertions, 28 deletions
diff --git a/lib/ManaTools/Shared/Action.pm b/lib/ManaTools/Shared/Action.pm index 1c211296..1b0f6a07 100644 --- a/lib/ManaTools/Shared/Action.pm +++ b/lib/ManaTools/Shared/Action.pm @@ -65,8 +65,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. use Moose; -use Moose::Util::TypeConstraints; -use MooseX::ClassAttribute; +use ManaTools::Shared::UserLevel; has 'name' => ( is => 'ro', @@ -110,43 +109,18 @@ has 'valid' => ( } ); -subtype 'LevelType' - => as Int - => where {($_ > 0 && $_ <= 3)}; - has 'level' => ( traits => ['Code'], is => 'ro', isa => 'CodeRef', required => 0, default => sub { - return sub { return 1; }; + return sub { return ManaTools::Shared::UserLevel->beginnerLevel; }; }, handles => { is_level => 'execute' } ); -class_has 'beginnerLevel' => ( - is => 'ro', - isa => 'LevelType', - init_arg => undef, - default => sub {return 1;}, -); - -class_has 'advancedLevel' => ( - is => 'ro', - isa => 'LevelType', - init_arg => undef, - default => sub {return 2;}, -); - -class_has 'expertLevel' => ( - is => 'ro', - isa => 'LevelType', - init_arg => undef, - default => sub {return 3;}, -); - 1; |