attributes sudo* isa ArrayRef[Str]

LDIF::Sudoer changes sudoUser to be restricted as a Str
shelling · Sep 17, 2012 · 2f7acce · 2f7acce
1 parent 977d417
commit 2f7acce
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 10 deletions.
diff --git a/lib/App/LDAP/LDIF/Sudoer.pm b/lib/App/LDAP/LDIF/Sudoer.pm
@@ -41,19 +41,20 @@ has '+objectClass' => (
 );
 
 has '+sudoUser' => (
+    isa      => "Str",
     required => 1,
 );
 
 has '+sudoHost' => (
-    default => "ALL",
+    default => sub { ["ALL"] },
 );
 
 has '+sudoRunAsUser' => (
-    default => "ALL",
+    default => sub { ["ALL"] },
 );
 
 has '+sudoCommand' => (
-    default => "ALL",
+    default => sub { ["ALL"] },
 );
 
 __PACKAGE__->meta->make_immutable;

diff --git a/lib/App/LDAP/ObjectClass/SudoRole.pm b/lib/App/LDAP/ObjectClass/SudoRole.pm
@@ -21,7 +21,7 @@ has [qw( sudoUser
          sudoOption
          description )] => (
     is  => "rw",
-    isa => "Str",
+    isa => "ArrayRef[Str]",
 );
 
 __PACKAGE__->meta->make_immutable;

diff --git a/t/ldif/sudoer.t b/t/ldif/sudoer.t
@@ -57,21 +57,21 @@ is (
     "sudoUser is name",
 );
 
-is (
+is_deeply (
     $sudoer->sudoHost,
-    "ALL",
+    ["ALL"],
     "sudoHost has default value ALL",
 );
 
-is (
+is_deeply (
     $sudoer->sudoRunAsUser,
-    "ALL",
+    ["ALL"],
     "sudoRunAsUser has default value ALL",
 );
 
-is (
+is_deeply (
     $sudoer->sudoCommand,
-    "ALL",
+    ["ALL"],
     "sudoCommand has default value ALL",
 );