File Coverage

blib/lib/EPublisher/Target/Base.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	30	31	96.7

package EPublisher::Target::Base;

# ABSTRACT: Base class for Target plugins

use strict;
use warnings;
use Carp;

our $VERSION = 0.0101;

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

    my $self = bless {}, $class;
    $self->_config( $args );

    return $self;
}

sub publisher {
    my ($self,$object) = @_;

    return $self->{__publisher} if @_ != 2;

    $self->{__publisher} = $object;
}

sub _config{
    my ($self,$args) = @_;

    $self->{__config} = $args if defined $args;
    return $self->{__config};
}

1;

__END__