Use dzil Authority plugin - remove $AUTHORITY from code
[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Reader.pm
1 package Moose::Meta::Method::Accessor::Native::Reader;
2
3 use strict;
4 use warnings;
5
6 use Moose::Role;
7
8 with 'Moose::Meta::Method::Accessor::Native';
9
10 requires '_return_value';
11
12 sub _generate_method {
13     my $self = shift;
14
15     my $inv         = '$self';
16     my $slot_access = $self->_get_value($inv);
17
18     return (
19         'sub {',
20             'my ' . $inv . ' = shift;',
21             $self->_inline_curried_arguments,
22             $self->_inline_reader_core($inv, $slot_access, @_),
23         '}',
24     );
25 }
26
27 sub _inline_reader_core {
28     my $self = shift;
29     my ($inv, $slot_access, @extra) = @_;
30
31     return (
32         $self->_inline_check_argument_count,
33         $self->_inline_process_arguments($inv, $slot_access),
34         $self->_inline_check_arguments,
35         $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
36         $self->_inline_return_value($slot_access),
37     );
38 }
39
40 sub _inline_process_arguments { return }
41
42 sub _inline_check_arguments { return }
43
44 no Moose::Role;
45
46 1;