add MX::Getopt scheme

[gitmo/MooseX-Runnable.git] / lib / MooseX / Runnable / Invocation.pm

diff --git a/lib/MooseX/Runnable/Invocation.pm b/lib/MooseX/Runnable/Invocation.pm
index ff74d42..77e3b0b 100644 (file)
--- a/lib/MooseX/Runnable/Invocation.pm
+++ b/lib/MooseX/Runnable/Invocation.pm
@@ -71,6 +71,23 @@ sub apply_scheme {
     }
 }
 
+
+sub _convert_role_to_scheme {
+    my ($self, $role) = @_;
+
+    my $name = $role->name;
+    return if $name =~ /\|/;
+    $name = "MooseX::Runnable::Invocation::Scheme::$name";
+
+    return eval {
+        Class::MOP::load_class($name);
+        warn "$name was loaded OK, but it's not a role!" and return
+          unless $name->meta->isa('Moose::Meta::Role');
+        return $name->meta;
+    };
+}
+
+
 sub validate_class {
     my ($self, $class) = @_;
 
@@ -91,14 +108,6 @@ sub validate_class {
     return; # return value is meaningless
 }
 
-sub _convert_role_to_scheme {
-    my ($self, $role) = @_;
-
-    my $name =
-
-    return;
-}
-
 sub create_instance {
     my ($self, $class, @args) = @_;
     return ($class->name->new, @args);