File Coverage

blib/lib/P5U/Command/Changes.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package P5U::Command::Changes;

use 5.010;
use strict;
use utf8;
use P5U-command;

use match::simple;

BEGIN {
	$P5U::Command::Changes::AUTHORITY = 'cpan:TOBYINK';
	$P5U::Command::Changes::VERSION   = '0.002';
}

use constant {
	abstract    => q[view change logs],
	usage_desc  => q[%c changes DIST_OR_MODULE VERSIONS?],
};

sub command_names {qw{ changes change changelog ch }}

sub opt_spec
{
	(
		[verbatim => 'show the Changes file verbatim'],
	);
}

sub _metacpan
{
	require JSON;
	require LWP::UserAgent;
	my ($self, @path) = @_;
	state $ua = LWP::UserAgent->new(
		agent => sprintf('%s/%s ', ref $self, $self->VERSION),
	);

	my $path = join '/', @path;
	my $r = $ua->get("http://api.metacpan.org/$path");
	$r->is_success or die("HTTP request failed");
	if ($r->content_type =~ /json/i)
	{
		return JSON::from_json( $r->decoded_content );
	}
	else
	{
		return $r->decoded_content;
	}
}

my $DATE = qr/^\d{4}-\d{2}-\d{2}/;
sub execute
{
	require CPAN::Changes;

	my ($self, $opt, $args) = @_;

	my ($dist, $versions) = @$args
		or $self->usage_error("must provide a distribution name");

	my ($release, $author, $latest);
	if ($dist =~ m{::})
	{
		$dist =~ s/^:://;
		$dist =~ s/::$//;
		my $data = $self->_metacpan('v0', module => $dist);
		($release, $author, $latest) = ($data->{release}, $data->{author}, $data->{version});
	}
	else
	{
		my $data = $self->_metacpan('v0', release => $dist);
		($release, $author, $latest) = ($data->{name}, $data->{author}, $data->{version});
	}

	my $changes = $self->_metacpan(source => ($author, $release, 'Changes'));
	if ($opt->{verbatim})
	{
		print $changes;
		exit;
	}

	my ($start, $end);
	if (defined $versions and $versions =~ /\.{2}/)
		{ ($start, $end) = split /\.{2}/, $versions }
	elsif (defined $versions and $versions |M| $DATE)
		{ ($start, $end) = ($versions, $latest) }
	elsif (defined $versions and length $versions)
		{ ($start, $end) = ($versions) x 2 }
	$start ||= 0;
	$end   ||= $latest;

	my ($start_is_date, $end_is_date);
	for ($start, $end)
	{
		next unless /^C/i;
		require Module::Info;
		my $mod = Module::Info->new_from_module($dist)
			or die "Unable to find local module info for '$dist'";
		$_ = $mod->version;
	}

	my ($start_is_date, $end_is_date) = map { $_ |M| $DATE } ($start, $end);

	for my $R (CPAN::Changes->load_string($changes)->releases)
	{
		next if (
				($R->version  < $start and not $start_is_date)
			or ($R->version  > $end   and not $end_is_date)
			or ($R->date    lt $start and     $start_is_date)
			or ($R->date    gt $end   and     $end_is_date)
		);
		print $R->serialize;
	}
}

1;

__END__