fixed regression with action_role namespaces being lost (created last release) and...
[catagits/CatalystX-Declare.git] / t / lib / Catalyst / ActionRole / hasActionParams_CatNS.pm
diff --git a/t/lib/Catalyst/ActionRole/hasActionParams_CatNS.pm b/t/lib/Catalyst/ActionRole/hasActionParams_CatNS.pm
new file mode 100644 (file)
index 0000000..f477dc3
--- /dev/null
@@ -0,0 +1,16 @@
+package Catalyst::ActionRole::hasActionParams_CatNS;
+use Moose::Role;
+
+has [qw/p1 p2/] => (is=>'ro', lazy_build=>1);
+
+sub _build_p1 {
+    my $self = shift @_;
+    return join ',', @{$self->attributes->{p1}};
+}
+
+sub _build_p2 {
+    my $self = shift @_;
+    return join ',', @{$self->attributes->{p2}};
+}
+
+1;