File Coverage

blib/lib/MooseX/Clone/Meta/Attribute/Trait/Clone/Std.pm

Criterion	Covered	Total	%
statement	11	12	91.6
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	17	20	85.0

package MooseX::Clone::Meta::Attribute::Trait::Clone::Std;

our $VERSION = '0.06';

use Moose::Role;
use namespace::autoclean;

with qw(MooseX::Clone::Meta::Attribute::Trait::Clone::Base);

requires qw(clone_value_data);

sub clone_value {
    my ( $self, $target, $proto, %args ) = @_;

    if ( exists $args{init_arg} ) {
        $self->set_value( $target, $args{init_arg} );
    } else {
        return unless $self->has_value($proto);

        my $clone = $self->clone_value_data( scalar($self->get_value($proto)), %args );

        $self->set_value( $target, $clone );
    }
}

__PACKAGE__

__END__