Changeset 10534

Timestamp:

04/27/08 14:14:45 (5 years ago)

Author:

tokuhirom

Message:

check the role

Files:

• lang/perl/Nanto/trunk/lib/Nanto/Plugin/Factory.pm (modified) (2 diffs)

lang/perl/Nanto/trunk/lib/Nanto/Plugin/Factory.pm

@@ -3 +3 @@
 use Moose::Role;
 use UNIVERSAL::require;
+use Carp;
 
 requires 'base_name', 'config';
@@ -11 +12 @@
     $factory->use or die $@;
 
-    # TODO: check $class does Nanto::Role::Factory?
+    croak "$factory does not Nanto::Role::Factory" unless $factory->does('Nanto::Role::Factory');
+
     if ($factory->per_context) {
         $self->{__PACKAGE__ . "__Factory::$module"} ||= $self->_create_instance( $factory, $module );