File Coverage

blib/lib/EPublisher/Source/Base.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	32	32	100.0

package EPublisher::Source::Base;

# ABSTRACT: Base class for Source plugins

use strict;
use warnings;
use Carp;

our $VERSION = 0.03;

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

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

    return $self;
}

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

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

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

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

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

1;

__END__