[catagits/CatalystX-Declare.git] / t / lib / Catalyst / ActionRole / hasActionParams_CatNS.pm

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;
Commit	Line	Data
12b853ff	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;