File Coverage

blib/lib/EPublisher.pm

Criterion	Covered	Total	%
statement	82	82	100.0
branch	38	38	100.0
condition	15	15	100.0
subroutine	13	13	100.0
pod	5	5	100.0
total	153	153	100.0

package EPublisher;

# ABSTRACT: Publish documents in new format

use strict;
use warnings;
use Carp;

use EPublisher::Config;
use EPublisher::Source;
use EPublisher::Target;

our $VERSION = 1.27;

sub new{
    my ($class,%args) = @_;
    my $self = bless {}, $class;

    $self->config( $args{config} ) if exists $args{config};
    $self->_debug( $args{debug} );

    return $self;
}

sub config{
    my ($self,$data) = @_;

    my $ref = ref $data;
    if( defined $data and !$ref ){
        $self->{_configfile} = $data;
        $self->_config(1);
    }
    elsif ( $ref and $ref eq 'HASH' ) {
        $self->_config( 1, $data );
    }

    return $self->{_configfile};
}

sub projects {
    my ($self) = @_;

    my $config = $self->_config;

    return if !ref $config;
    return if ref $config ne 'HASH';

    return keys %{$config};
}

sub run{
    my ($self,$projects) = @_;

    PROJECT:
    for my $project ( @$projects ) {
        my $config   = $self->_config->{$project};

        next PROJECT if !$config;

        # load the source
        next PROJECT if !exists $config->{source};

        my $sources = $config->{source};
        next PROJECT if !ref $sources;

        $sources = [ $sources ] if ref $sources ne 'ARRAY';

        next PROJECT if !exists $config->{target};
        next PROJECT if !$config->{target}->{type};

        my @pods;

        SOURCE:
        for my $source ( @{$sources} ) {
            die 'No type in source.' if !length $source->{type};

            $self->debug('100: ' . $source->{type} );

            my $source_obj = EPublisher::Source->new( $source );
            $source_obj->publisher( $self );

            my @pod_source = $source_obj->load_source;

            next SOURCE if !@pod_source;

            @pod_source = grep { $_->{pod} }@pod_source;

            $self->debug('101: ' . substr join( "", map{ $_->{pod} }@pod_source ), 0, 50 );

            push @pods, @pod_source;
        }

        next PROJECT if !@pods;

        $config->{target}->{source} = \@pods;

        # deploy the project
        $self->debug('200: ' . $config->{target}->{type} );
        my $target = EPublisher::Target->new( $config->{target} );
        $target->publisher( $self );
        $target->deploy;
    }

    return 1;
}

sub _debug{
   my ($self,$ref) = @_;

   if( @_ == 2 and ref($ref) eq 'CODE' ){
      $self->{__debug} = $ref;
      $self->{DEBUG}   = 1;
   }

   return $self->{__debug};
}

sub debug {
    my ($self,$message) = @_;

    return if !$self->{DEBUG};
    $self->{__debug}->($message);
}

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

    if ( $bool and $data ) {
        $self->{__config} = $data;
    }
    elsif( !$self->{__config} or $bool ){
        unless( $self->config ){
            croak "no config file given!";
        }
        $self->{__config} = EPublisher::Config->get_config( $self->config );
    }

    return $self->{__config};
}

1;

__END__