File Coverage

blib/lib/MooX/LvalueAttribute.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	4	6	66.6
condition	4	9	44.4
subroutine	2	2	100.0
pod			n/a
total	24	32	75.0

#
# This file is part of MooX-LvalueAttribute
#
# This software is copyright (c) 2013 by Damien "dams" Krotkine.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package MooX::LvalueAttribute;
{
  $MooX::LvalueAttribute::VERSION = '0.16';
}
use strictures 1;

# ABSTRACT: Provides Lvalue accessors to Moo class attributes

require Moo;
require Moo::Role;

our %INJECTED_IN_ROLE;
our %INJECTED_IN_CLASS;

sub import {
    my $class = shift;
    my $target = caller;

    if ($Moo::Role::INFO{$target} && $Moo::Role::INFO{$target}{is_role}) {

        # We are loaded from a Moo role
        $Moo::Role::INFO{$target}{accessor_maker} ||= do {
            require Method::Generate::Accessor;
            Method::Generate::Accessor->new
          };
        Moo::Role->apply_roles_to_object(
            $Moo::Role::INFO{$target}{accessor_maker},
            'Method::Generate::Accessor::Role::LvalueAttribute',
        );
        $INJECTED_IN_ROLE{$target} = 1;

    } elsif ($Moo::MAKERS{$target} && $Moo::MAKERS{$target}{is_class}) {

        # We are loaded from a Moo class
        if ( !$INJECTED_IN_CLASS{$target} ) {
            Moo::Role->apply_roles_to_object(
              Moo->_accessor_maker_for($target),
              'Method::Generate::Accessor::Role::LvalueAttribute',
            );
            $INJECTED_IN_CLASS{$target} = 1;
        }
    } else {
        die "MooX::LvalueAttribute can only be used in Moo classes or Moo roles.";
    }

}


1;

__END__