local-lib5/lib/perl5/Parse/Method/Signatures/ParamCollection.pm

   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;