File Coverage

blib/lib/EPublisher/Utils/PPI.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	22	22	100.0
condition	6	6	100.0
subroutine	9	9	100.0
pod	3	3	100.0
total	89	89	100.0

package EPublisher::Utils::PPI;

# ABSTRACT: PPI utility for EPublisher

use strict;
use warnings;

use Exporter;
use PPI;

our @ISA = qw(Exporter);

our @EXPORT_OK = qw(
    extract_package
    extract_pod
    extract_pod_from_code
);

our $VERSION = 0.5;

sub extract_package {
    my ($file, $config) = @_;

    return if !$file || !-r -f $file;

    open my $fh, '<', $file;

    if ( $config->{encoding} ) {
        binmode $fh, ':encoding(' . $config->{encoding} . ')';
    }

    local $/;
    my $content = <$fh>;

    return if !$content;

    my $parser = PPI::Document->new( \$content );

    return if !$parser;

    my $stmt = $parser->find_first('PPI::Statement::Package');

    return if !$stmt;

    my $package = $stmt->namespace;

    return $package;
}

sub extract_pod {
    my ($file, $config) = @_;

    return if !$file || !-r -f $file;

    my $content;

    open my $fh, '<', $file;

    if ( $config->{encoding} ) {
        binmode $fh, ':encoding(' . $config->{encoding} . ')';
    }

    local $/;
    $content = <$fh>;
    close $fh;

    return extract_pod_from_code( $content );
}

sub extract_pod_from_code {
    my ($code) = @_;

    return if !$code;

    my $parser = PPI::Document->new( \$code );

    return if !$parser;

    my $pod_nodes = $parser->find(
        sub {
             $_[1]->isa( 'PPI::Token::Pod' );
        },
    );

    my $merged = PPI::Token::Pod->merge( @{$pod_nodes || []} );

    return '' if !$merged;
    return $merged->content;
}

1;

__END__