finish adding type constraints

[scpubgit/DX.git] / lib / DX / ActionPolicy / LockScope.pm

diff --git a/lib/DX/ActionPolicy/LockScope.pm b/lib/DX/ActionPolicy/LockScope.pm
index caa8b96..203ff1c 100644 (file)
--- a/lib/DX/ActionPolicy/LockScope.pm
+++ b/lib/DX/ActionPolicy/LockScope.pm
@@ -4,9 +4,9 @@ use DX::Class;
 
 with 'DX::Role::ActionPolicy';
 
-has lock_to_depth => (is => 'ro', required => 1);
+has lock_to_depth => (is => 'ro', required => 1, isa => Int);
 
-has next_policy => (is => 'ro', required => 1);
+has next_policy => (is => 'ro', required => 1, isa => ActionPolicy);
 
 sub allows {
   my ($self, $action) = @_;