File Coverage

blib/lib/EPublisher/Source/Plugin/File.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	12	12	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	55	55	100.0

package EPublisher::Source::Plugin::File;

# ABSTRACT: File source plugin

use strict;
use warnings;

use File::Basename;

use EPublisher::Source::Base;
use EPublisher::Utils::PPI qw(extract_pod);

our @ISA = qw( EPublisher::Source::Base );

our $VERSION = 0.05;

sub load_source{
    my ($self, $source_path) = @_;

    my $options = $self->_config;

    my $file = $source_path // $options->{path};

    if ( !defined $file ) {
        $self->publisher->debug( "400: No path given" );
        return;
    }

    if( !-f $file ) {
        $self->publisher->debug( "400: $file is not a file" );
        return;
    }

    my $pod      = extract_pod( $file, $self->_config );
    my $filename = basename $file;
    my $title    = $filename;

    $options->{title} = '' if !defined $options->{title};

    if ( $options->{title} eq 'pod' ) {
        ($title) = $pod =~ m{ =head1 \s+ (.*) }x;
        $title = '' if !defined $title;
    }
    elsif ( length $options->{title} ) {
        $title = $options->{title};
    }

    return { pod => $pod, filename => $filename, title => $title };
}

1;

__END__