aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ManaTools/Shared
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-08-30 11:29:12 +0200
committerAngelo Naselli <anaselli@linux.it>2015-08-30 11:29:12 +0200
commitf68aea5c71c2c2a4c23f0f2b98eff3b582c1a688 (patch)
tree4b7186410ee557dd4e27cee48a9a571e4996470e /lib/ManaTools/Shared
parent995ca0fed297ecdefdbe3a7455457c43719abf0f (diff)
downloadmanatools-f68aea5c71c2c2a4c23f0f2b98eff3b582c1a688.tar
manatools-f68aea5c71c2c2a4c23f0f2b98eff3b582c1a688.tar.gz
manatools-f68aea5c71c2c2a4c23f0f2b98eff3b582c1a688.tar.bz2
manatools-f68aea5c71c2c2a4c23f0f2b98eff3b582c1a688.tar.xz
manatools-f68aea5c71c2c2a4c23f0f2b98eff3b582c1a688.zip
Added Type constraint on dialog type
Diffstat (limited to 'lib/ManaTools/Shared')
-rw-r--r--lib/ManaTools/Shared/GUI/Dialog.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/ManaTools/Shared/GUI/Dialog.pm b/lib/ManaTools/Shared/GUI/Dialog.pm
index 7e91eef8..45fc151f 100644
--- a/lib/ManaTools/Shared/GUI/Dialog.pm
+++ b/lib/ManaTools/Shared/GUI/Dialog.pm
@@ -74,6 +74,7 @@ use diagnostics;
use utf8;
with 'ManaTools::Shared::GUI::EventHandlerRole';
+use Moose::Util::TypeConstraints;
use yui;
use ManaTools::Shared::GUI::Event;
@@ -142,9 +143,13 @@ has 'dialog' => (
our $mainDialog = 1;
our $popupDialog = 2;
+subtype 'DialogType'
+ => as Int
+ => where {($_ > 0 && $_<=2)};
+
has 'dialogType' => (
is => 'ro',
- isa => 'Int',
+ isa => 'DialogType',
required => 1,
);