File Coverage

lib/Module/New/Command/Readme.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod			n/a
total	20	38	52.6

package Module::New::Command::Readme;

use strict;
use warnings;
use Carp;
use Module::New::Meta;
use Module::New::Queue;

functions {

  create_readme_from_pod => sub () { Module::New::Queue->register(sub {
    my ($self, $file) = @_;
    croak "source file is required" unless $file && -f $file;
    my $context = Module::New->context;
    my $readme = $context->path->file('README');

    require Pod::Text;
    my $parser = Pod::Text->new(width => 68, indent => 2);
    $parser->output_string(\my $pod);
    $parser->parse_file($file);
    $readme->spew($pod);
    $context->log( info => "created README" );
  })},
};

1;

__END__