Implement automatic role loading for script classes.

[catagits/Catalyst-Runtime.git] / t / lib / ScriptTestApp / TraitFor / Script.pm

diff --git a/t/lib/ScriptTestApp/TraitFor/Script.pm b/t/lib/ScriptTestApp/TraitFor/Script.pm
new file mode 100644 (file)
index 0000000..43a50cc
--- /dev/null
+++ b/t/lib/ScriptTestApp/TraitFor/Script.pm
@@ -0,0 +1,10 @@
+package ScriptTestApp::TraitFor::Script;
+use Moose::Role;
+use namespace::autoclean;
+
+around run => sub {
+    my ($orig, $self, @args) = @_;
+    return 'moo' . $self->$orig(@args);
+};
+
+1;