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__

=encoding utf-8

=head1 NAME

Module::New::Command::Readme

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 METHODS

=head1 AUTHOR

Kenichi Ishigaki, E<lt>ishigaki@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Kenichi Ishigaki.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut