File Coverage

lib/Module/Build/Pluggable/ReadmeMarkdownFromPod.pm

Criterion	Covered	Total	%
statement	36	38	94.7
branch	5	8	62.5
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	50	59	84.7

package Module::Build::Pluggable::ReadmeMarkdownFromPod;
use strict;
use warnings;
use 5.010001;
our $VERSION = '0.04';

use parent qw/Module::Build::Pluggable::Base/;
use Class::Accessor::Lite (
    ro => [qw/filename clean/],
);

sub HOOK_configure {
    my ($self) = @_;
    $self->build_requires('Pod::Markdown' => 0);
}

sub HOOK_build {
    my ($self) = @_;
    require Pod::Markdown;

    my $src = $self->filename || $self->builder->dist_version_from;
    unless ($src) {
        die "Missing filename for ReadmeMarkdownFromPod";
    }

    $self->log_info("Writing README.mkdn\n");

    if (-f 'README.mkdn') {
        my $perm = (stat 'README.mkdn')[2] & oct('7777');
        chmod($perm | oct('600'), 'README.mkdn');
        _write_file($src);
        chmod($perm, 'README.mkdn'); # restore permission
    } else {
        _write_file($src);
    }

    if ($self->clean) {
        $self->add_to_cleanup('README.mkdn');
    }
}

sub _write_file {
    my ($src) = @_;
    my $parser = Pod::Markdown->new();
    $parser->parse_from_file($src);
    open my $fh, '>', 'README.mkdn' or die "Cannot open README.mkdn: $!\n";
    print {$fh} $parser->as_markdown;
    close $fh;
}

1;
__END__