File Coverage

blib/lib/Moose/Meta/Method/Accessor/Native/String/match.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 35 35 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Method::Accessor::Native::String::match;
2             our $VERSION = '2.2206';
3              
4 3     3   2358 use strict;
  3         8  
  3         103  
5 3     3   19 use warnings;
  3         5  
  3         91  
6              
7 3     3   16 use Moose::Util ();
  3         7  
  3         39  
8 3     3   17 use Params::Util ();
  3         6  
  3         74  
9              
10 3     3   16 use Moose::Role;
  3         6  
  3         26  
11              
12             with 'Moose::Meta::Method::Accessor::Native::Reader';
13              
14 15     15   52 sub _minimum_arguments { 1 }
15              
16 15     15   59 sub _maximum_arguments { 1 }
17              
18             sub _inline_check_arguments {
19 15     15   33 my $self = shift;
20              
21             return (
22 15         77 'if (!Moose::Util::_STRINGLIKE0($_[0]) && !Params::Util::_REGEX($_[0])) {',
23             $self->_inline_throw_exception( InvalidArgumentToMethod =>
24             'argument => $_[0],'.
25             'type => "Str|RegexpRef",'.
26             'type_of_argument => "string or regexp reference",'.
27             'method_name => "match"',
28             ) . ';',
29             '}',
30             );
31             }
32              
33             sub _return_value {
34 15     15   49 my $self = shift;
35 15         37 my ($slot_access) = @_;
36              
37 15         143 return $slot_access . ' =~ $_[0]';
38             }
39              
40 3     3   34 no Moose::Role;
  3         6  
  3         21  
41              
42             1;