Changeset 13211

Timestamp:

06/04/08 16:45:24 (5 years ago)

Author:

daisuke

Message:

more coersion control

Location:

lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber

Files:

• Role/Client.pm (modified) (3 diffs)
• Types.pm (modified) (2 diffs)

lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber/Role/Client.pm

@@ -15 +15 @@
     is => 'rw',
     isa => 'XMPP::Bomber::Server',
+    coerce => 1,
     required => 1,
 );
@@ -22 +23 @@
     isa => 'AccountList',
     auto_deref => 1,
+    coerce => 1,
     required => 1,
 );
@@ -38 +40 @@
 has 'content_provider' => (
     is => 'rw',
-    does => 'XMPP::Bomber::Role::ContentProvider'
+    does => 'XMPP::Bomber::Role::ContentProvider',
+    coerce => 1,
 );
 
 has 'recipient_chooser' => (
     is => 'rw',
-    does => 'XMPP::Bomber::Role::RecipientChooser'
+    does => 'XMPP::Bomber::Role::RecipientChooser',
+    coerce => 1,
 );
 

lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber/Types.pm

@@ -5 +5 @@
 use XMPP::Bomber::Server;
 use XMPP::Bomber::Role::ContentProvider;
+use XMPP::Bomber::Role::Client;
 use XMPP::Bomber::Role::UserProvider;
+
+subtype 'ClientList'
+    => as 'ArrayRef[XMPP::Bomber::Role::Client]'
+;
+
+coerce 'ClientList'
+    => from  'ArrayRef[HashRef]'
+        => via {
+            my @ret;
+            foreach my $args (@$_) {
+                push @ret, __auto_object_from_hash($args, "XMPP::Bomber::Client");
+            }
+            return \@ret;
+        }
+;
 
 subtype 'AccountList'
@@ -25 +41 @@
     => from 'HashRef' 
         => via {
-            __module_from_hash($_, "XMPP::Bomber::ContentProvider");
+            __auto_object_from_hash($_, "XMPP::Bomber::ContentProvider");
         }
 ;