File Coverage

lib/Module/New/Command/Version.pm

Criterion	Covered	Total	%
statement	24	47	51.0
branch	0	6	0.0
condition	0	6	0.0
subroutine	8	10	80.0
pod			n/a
total	32	69	46.3

package Module::New::Command::Version;

use strict;
use warnings;
use Carp;
use Module::New::Meta;
use Module::New::Queue;
use Path::Tiny;
use version;
use Version::Next;

functions {

  update_versions => sub () { Module::New::Queue->register(sub {
    my ($self, $version) = @_;
    my $context = Module::New->context;
    my $root = $context->path->_root;

    require Parse::LocalDistribution;
    my $parser = Parse::LocalDistribution->new({ALLOW_DEV_VERSION => 1});
    my $info = $parser->parse($root);
    my @versions = map {$_->[1]}
                   sort {$b->[0] <=> $a->[0]}
                   map {[version->parse($info->{$_}{version}), $info->{$_}{version}]}
                   grep {defined $info->{$_}{version}}
                   keys %$info;
    $version ||= Version::Next::next_version($versions[0]);
    croak "version $version is equal to or older than $versions[0]" if version->parse($version) <= version->parse($versions[0]);

    for my $package (keys %$info) {
      my $old_version = $info->{$package}{version};
      next unless defined $old_version && $old_version ne 'undef';
      my $file = $info->{$package}{infile} or next;
      my $content = path($file)->slurp;
      $content =~ s|(VERSION\s*=\s*["'])$old_version(["'])|$1$version$2|;
      path($file)->spew($content);
      $context->log( info => "updated $file" );
    }

    $context->log( info => "updated VERSION(s) to $version" );
  })},
};

1;

__END__