[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Parse / Method / Signatures / ParamCollection.pm

package Parse::Method::Signatures::ParamCollection;

use Moose;
use MooseX::Types::Moose qw/ArrayRef/;
use Parse::Method::Signatures::Types qw/Param/;

use namespace::clean -except => 'meta';

has params => (
    is         => 'ro',
    isa        => ArrayRef[Param],
    required   => 1,
    auto_deref => 1,
);

sub to_string {
    my ($self) = @_;
    return join(q{, }, map { $_->to_string } $self->params);
}

1;
Commit	Line	Data
3fea05b9	1	package Parse::Method::Signatures::ParamCollection;
	2
	3	use Moose;
	4	use MooseX::Types::Moose qw/ArrayRef/;
	5	use Parse::Method::Signatures::Types qw/Param/;
	6
	7	use namespace::clean -except => 'meta';
	8
	9	has params => (
	10	is => 'ro',
	11	isa => ArrayRef[Param],
	12	required => 1,
	13	auto_deref => 1,
	14	);
	15
	16	sub to_string {
	17	my ($self) = @_;
	18	return join(q{, }, map { $_->to_string } $self->params);
	19	}
	20
	21	1;