File Coverage

blib/lib/Enbld/Target/Attribute/CopyFiles.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	1	4	25.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	21	40	52.5

package Enbld::Target::Attribute::CopyFiles;

use strict;
use warnings;

use Carp;

use parent qw/Enbld::Target::Attribute/;

sub validate {
    my ( $self, $value ) = @_;

    unless ( ref( $value ) eq 'ARRAY' ) {
        my $type = ref( $self );
        $type =~ s/.*:://;

        my $err = "Attribute 'CopyFiles' isn't ARRAY reference";
        require Enbld::Exception;
        croak( Enbld::Exception->new( $err, $value ));
    }

    foreach my $string ( @{ $value } ) {
        $self->SUPER::validate( $string );
    }

    return $value;
}

sub to_value {
    my $self = shift;

    my $value = $self->evaluate;

    return [] if ( ! defined $value );

    $self->validate( $value );

    return $value;
}

1;