File Coverage

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

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	11	100.0

package MooX::ChainedAttributes::Role::GenerateAccessor;
use 5.008001;
use strictures 2;
our $VERSION = '0.08';

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;