aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ManaTools/Shared/Action.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ManaTools/Shared/Action.pm')
-rw-r--r--lib/ManaTools/Shared/Action.pm30
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;