File Coverage

blib/lib/MooX/ChainedAttributes/Role/GenerateAccessor.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package MooX::ChainedAttributes::Role::GenerateAccessor;

$MooX::ChainedAttributes::Role::GenerateAccessor::VERSION = '0.07';

use Moo::Role;

around is_simple_set => sub {
    my $orig = shift;
    my $self = shift;
    my ($attr, $spec) = @_;
    return 0
        if $spec->{chained};
    $self->$orig(@_);
};

around _generate_set => sub {
    my $orig = shift;
    my $self = shift;
    my ($attr, $spec) = @_;
    my $chained = $spec->{chained};
    local $spec->{chained};
    my $set = $self->$orig(@_);
    return $set
        if !$chained;

    "(scalar ($set, \$_[0]))";
};

1;