refactor constructor inlining to reuse attribute 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 our $VERSION = '1.19';
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
9
10 use Moose::Role;
11
12 with 'Moose::Meta::Method::Accessor::Native';
13
14 requires '_return_value';
15
16 sub _generate_method {
17     my $self = shift;
18
19     my $inv         = '$self';
20     my $slot_access = $self->_get_value($inv);
21
22     return (
23         'sub {',
24             'my ' . $inv . ' = shift;',
25             $self->_inline_curried_arguments,
26             $self->_inline_reader_core($inv, $slot_access, @_),
27         '}',
28     );
29 }
30
31 sub _inline_reader_core {
32     my $self = shift;
33     my ($inv, $slot_access, @extra) = @_;
34
35     return (
36         $self->_inline_check_argument_count,
37         $self->_inline_process_arguments($inv, $slot_access),
38         $self->_inline_check_arguments,
39         $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
40         $self->_inline_return_value($slot_access),
41     );
42 }
43
44 sub _inline_process_arguments { return }
45
46 sub _inline_check_arguments { return }
47
48 no Moose::Role;
49
50 1;