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;