lib/Moose/Meta/Method/Accessor/Native/String/match.pm

   1 package Moose::Meta::Method::Accessor::Native::String::match;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose::Util ();
   7 use Params::Util ();
   8
   9 our $VERSION = '1.19';
  10 $VERSION = eval $VERSION;
  11 our $AUTHORITY = 'cpan:STEVAN';
  12
  13 use Moose::Role;
  14
  15 with 'Moose::Meta::Method::Accessor::Native::Reader' => {
  16     -excludes => [
  17         qw(
  18             _minimum_arguments
  19             _maximum_arguments
  20             _inline_check_arguments
  21             )
  22     ]
  23 };
  24
  25 sub _minimum_arguments { 1 }
  26
  27 sub _maximum_arguments { 1 }
  28
  29 sub _inline_check_arguments {
  30     my $self = shift;
  31
  32     return (
  33         'if (!Moose::Util::_STRINGLIKE0($_[0]) && !Params::Util::_REGEX($_[0])) {',
  34             $self->_inline_throw_error(
  35                 '"The argument passed to match must be a string or regexp '
  36               . 'reference"',
  37             ) . ';',
  38         '}',
  39     );
  40 }
  41
  42 sub _return_value {
  43     my $self = shift;
  44     my ($slot_access) = @_;
  45
  46     return $slot_access . ' =~ $_[0]';
  47 }
  48
  49 no Moose::Role;
  50
  51 1;