File Coverage

blib/lib/Enbld/Target/Attribute.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	14	14	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	0	7	0.0
total	75	82	91.4

package Enbld::Target::Attribute;

use strict;
use warnings;

use Module::Load::Conditional qw/can_load/;

require Enbld::Exception;

sub new {
    my ( $class, $name, $param ) = @_;

    if ( ! $name ) {
        Enbld::Exception->throw( "'$class' requires name" );
    }

    my $module = "Enbld::Target::Attribute::$name";

    can_load( modules => { $module => 0 } ) or
        Enbld::Exception->throw( "Attribute '$name' is invalid name" );

    my $self = {
        attributes      =>  undef,
        value           =>  undef,
        callback        =>  undef,
        is_evaluated    =>  undef,
    };

    bless $self, $module;

    $self->initialize( $param );

    return $self;
}

sub initialize {
    my ( $self, $param ) = @_;

    if ( ref( $param ) eq 'CODE' ) {
        $self->{callback} = $param;
        return $self;
    }

    $self->{value} = $param;
    $self->{is_evaluated}++;
    return $self;
}

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

    if ( ! $string ) {
        my $type = ref( $self );
        $type =~ s/.*:://;
        Enbld::Exception->throw( "Attribute '$type' is empty string" );
    }

    if ( ref( $string ) ) {
        my $type = ref( $self );
        $type =~ s/.*:://;
        Enbld::Exception->throw( "Attribute '$type' isn't scalar value" );
    }

    return $string;
}

sub evaluate {
    my $self = shift;

    return $self->{value} if $self->{is_evaluated};

    $self->{value} = $self->{callback}->( $self->{attributes} );
    $self->{is_evaluated}++;

    return $self->{value};
}

sub to_value {
    my $self = shift;

    my $value = $self->evaluate;

    return '' if ( ( ! $value ) && $self->is_omitable );

    $self->validate( $value );

    return $value;
}

sub is_omitable {
    return; # if attribute is not omitable, override this method in sub class.
}

sub link_to_collector {
    my ( $self, $collector ) = @_;

    $self->{attributes} = $collector;
}

1;