File Coverage

blib/lib/Parse/Method/Signatures/Param/Bindable.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


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