File Coverage

blib/lib/Enbld/Target/AttributeCollector.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	35	38	92.1

package Enbld::Target::AttributeCollector;

use strict;
use warnings;

use Carp;

sub new {
    my $class = shift;

    return bless {}, $class;
}

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

    if ( $self->{$name} ) {
        require Enbld::Exception;
        croak( Enbld::Exception->new( $name . " is already added" ) );
    }

    require Enbld::Target::Attribute;
    $self->{$name} = Enbld::Target::Attribute->new( $name, $param );
    $self->{$name}->link_to_collector( $self );

    return $self;
}

sub AUTOLOAD {
    my $self = shift;

    my $method = our $AUTOLOAD;
    $method =~ s/.*:://;

    return $self->{$method}->to_value if ( exists $self->{$method} );

    require Enbld::Exception;
    croak( Enbld::Exception->new( "'$method' is invalid method" ) );
}

sub DESTROY {
    # do nothing
}

1;