File Coverage

blib/lib/Moose/Meta/Method/Accessor/Native/Hash.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Method::Accessor::Native::Hash;
2             our $VERSION = '2.2205';
3              
4 8     8   4784 use strict;
  8         27  
  8         281  
5 8     8   44 use warnings;
  8         23  
  8         250  
6              
7 8     8   41 use Moose::Role;
  8         35  
  8         72  
8              
9             sub _inline_check_var_is_valid_key {
10 60     60   131 my $self = shift;
11 60         139 my ($var) = @_;
12              
13             return (
14 60         294 'if (!defined(' . $var . ')) {',
15             $self->_inline_throw_exception( InvalidArgumentToMethod =>
16             'argument => '.$var.','.
17             'method_name => "'.$self->delegate_to_method.'",'.
18             'type_of_argument => "defined value",'.
19             'type => "Defined",'.
20             'argument_noun => "key"',
21             ) . ';',
22             '}',
23             );
24             }
25              
26 8     8   73 no Moose::Role;
  8         22  
  8         42  
27              
28             1;