projects
/
catagits/CatalystX-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f477dc36af632e8d9d94fa266d58f33cb94e41bd
[catagits/CatalystX-Declare.git]
/
t
/
lib
/
Catalyst
/
ActionRole
/
hasActionParams_CatNS.pm
1
package Catalyst::ActionRole::hasActionParams_CatNS;
2
use Moose::Role;
3
4
has [qw/p1 p2/] => (is=>'ro', lazy_build=>1);
5
6
sub _build_p1 {
7
my $self = shift @_;
8
return join ',', @{$self->attributes->{p1}};
9
}
10
11
sub _build_p2 {
12
my $self = shift @_;
13
return join ',', @{$self->attributes->{p2}};
14
}
15
16
1;