local-lib5/lib/perl5/Parse/Method/Signatures/Param/Bindable.pm

   1 package Parse::Method::Signatures::Param::Bindable;
   2
   3 use Moose::Role;
   4 use Parse::Method::Signatures::Types qw/VariableName/;
   5
   6 use namespace::clean -except => 'meta';
   7
   8 has variable_name => (
   9     is => 'ro',
  10     isa => VariableName,
  11     required => 1,
  12 );
  13
  14 sub _stringify_variable_name {
  15     my ($self) = @_;
  16     return $self->variable_name;
  17 }
  18
  19 1;