File Coverage

blib/lib/Moose/Meta/Method/Accessor/Native/Array/join.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Method::Accessor::Native::Array::join;
2             our $VERSION = '2.2205';
3              
4 7     7   5465 use strict;
  7         20  
  7         272  
5 7     7   47 use warnings;
  7         20  
  7         216  
6              
7 7     7   41 use Moose::Util ();
  7         19  
  7         134  
8              
9 7     7   46 use Moose::Role;
  7         17  
  7         68  
10              
11             with 'Moose::Meta::Method::Accessor::Native::Reader';
12              
13 22     22   81 sub _minimum_arguments { 1 }
14              
15 22     22   81 sub _maximum_arguments { 1 }
16              
17             sub _inline_check_arguments {
18 22     22   64 my $self = shift;
19              
20             return (
21 22         133 'if (!Moose::Util::_STRINGLIKE0($_[0])) {',
22             $self->_inline_throw_exception( InvalidArgumentToMethod =>
23             'argument => $_[0],'.
24             'method_name => "join",'.
25             'type_of_argument => "string",'.
26             'type => "Str",',
27             ) . ';',
28             '}',
29             );
30             }
31              
32             sub _return_value {
33 22     22   64 my $self = shift;
34 22         67 my ($slot_access) = @_;
35              
36 22         240 return 'join $_[0], @{ (' . $slot_access . ') }';
37             }
38              
39 7     7   67 no Moose::Role;
  7         18  
  7         47  
40              
41             1;