File Coverage

blib/lib/Moose/Meta/Method/Accessor/Native/Hash/get.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Moose::Meta::Method::Accessor::Native::Hash::get;
2             our $VERSION = '2.2205';
3              
4 5     5   3346 use strict;
  5         17  
  5         168  
5 5     5   29 use warnings;
  5         14  
  5         144  
6              
7 5     5   28 use Moose::Role;
  5         12  
  5         45  
8              
9             with 'Moose::Meta::Method::Accessor::Native::Reader',
10             'Moose::Meta::Method::Accessor::Native::Hash';
11              
12 14     14   55 sub _minimum_arguments { 1 }
13              
14             sub _inline_check_arguments {
15 14     14   34 my $self = shift;
16              
17             return (
18 14         76 'for (@_) {',
19             $self->_inline_check_var_is_valid_key('$_'),
20             '}',
21             );
22             }
23              
24             sub _return_value {
25 14     14   42 my $self = shift;
26 14         46 my ($slot_access) = @_;
27              
28 14         174 return '@_ > 1 '
29             . '? @{ (' . $slot_access . ') }{@_} '
30             . ': ' . $slot_access . '->{$_[0]}';
31             }
32              
33 5     5   43 no Moose::Role;
  5         13  
  5         24  
34              
35             1;