lib/Moose/Meta/Method/Accessor/Native/Hash/defined.pm

   1 package Moose::Meta::Method::Accessor::Native::Hash::defined;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Scalar::Util qw( looks_like_number );
   7
   8 our $VERSION = '1.13';
   9 $VERSION = eval $VERSION;
  10 our $AUTHORITY = 'cpan:STEVAN';
  11
  12 use base qw(
  13     Moose::Meta::Method::Accessor::Native::Hash
  14     Moose::Meta::Method::Accessor::Native::Reader
  15 );
  16
  17 sub _minimum_arguments { 1 }
  18
  19 sub _maximum_arguments { 1 }
  20
  21 sub _inline_check_arguments {
  22     my $self = shift;
  23
  24     return $self->_inline_check_var_is_valid_key('$_[0]');
  25 }
  26
  27 sub _return_value {
  28     my $self        = shift;
  29     my $slot_access = shift;
  30
  31     return "defined ${slot_access}->{ \$_[0] }";
  32 }
  33
  34
  35 1;