—

              
#
# This file is part of MooseX-Attribute-Deflator
#
# This software is Copyright (c) 2012 by Moritz Onken.
#
# This is free software, licensed under:
#
#   The (three-clause) BSD License
#
package MooseX::Attribute::LazyInflator::Meta::Role::Method::Accessor;
{
  $MooseX::Attribute::LazyInflator::Meta::Role::Method::Accessor::VERSION = '2.1.10'; # TRIAL
}
# ABSTRACT: Lazy inflate attributes
use base 'Moose::Meta::Method::Accessor';
use strict;
use warnings;
sub _inline_check_lazy {
    my ( $self, $instance ) = @_;
    my $slot_exists = $self->_inline_has($instance);
    my $code = "if($slot_exists && !\$attr->is_inflated($instance)) {\n  ";
    $code .= "my \$inflated = \$attr->inflate($instance, " . $self->_inline_get($instance) . ");\n";
    $code .= $self->_inline_check_coercion("\$inflated") . "\n";
    $code .= $self->_inline_check_constraint("\$inflated") . "\n";
    $code .= $self->_inline_store( $instance, "\$inflated" ) . "\n";
    $code .= "}\n\n";
    $code .= $self->next::method($instance);
    return $code;
}
1;
HideShow 40 lines of Pod
=pod
=head1 NAME
MooseX::Attribute::LazyInflator::Meta::Role::Method::Accessor - Lazy inflate attributes
=head1 VERSION
version 2.1.10
=head1 INHERITANCE
This class is a base class of L<Moose::Meta::Method::Accessor>.
This is subject to change. As the name suggests, it should be role.
=head1 METHODS
=over 8
=item override B<_inline_check_lazy>
The attribute's value is being inflated and set if it has a value and hasn't been inflated yet.
=back
=head1 AUTHOR
Moritz Onken
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 by Moritz Onken.
This is free software, licensed under:
  The (three-clause) BSD License
=cut
__END__