#!/usr/bin/perl

use CPAN::Changes;

use Getopt::Long qw(GetOptions);

use Pod::Usage   qw(pod2usage);

GetOptions( \my %opt,

   'next!',

   'token:s',

   'headers!',

   'reverse',

   'check',

   'help',

) or pod2usage( -verbose => 2 );

pod2usage( -verbose => 2 ) if $opt{help};

$opt{token} ||= qr/\{\{\$NEXT\}\}/;

my $changelog = shift;

unless ( $changelog ) {

    # try to guess it

    opendir my $dir, '.';

    my @files = grep { -f $_ and /^change/i } readdir $dir;

    die "changelog not provided and couldn't be guessed\n"

        unless @files == 1;

    $changelog = shift @files;

    warn "changelog not provided, guessing '$changelog'\n\n";

}

if ($opt{check}) {

    require Test::CPAN::Changes;

    require Test::More;

    Test::CPAN::Changes::changes_file_ok();

    exit;

}

my $changes = CPAN::Changes->load(

    $changelog,

    ( next_token => $opt{token} ) x $opt{next},

);

if( $opt{headers} ) {

    $_->clear_changes for $changes->releases;

}

print $changes->serialize(

    reverse => $opt{reverse},

);

__END__

=head1 NAME

tidy_changelog - command-line tool for CPAN::Changes

=head1 SYNOPSIS

    $ tidy_changelog Changelog

=head1 DESCRIPTION

Takes a changelog file, parse it using L<CPAN::Changes> and prints out

the resulting output.  If a file is not given, the program will see if

there is one file in the current directory beginning by 'change'

(case-insensitive) and, if so, assume it to be the changelog.

=head1 ARGUMENTS

=head2 --next

If provided, assumes that there is a placeholder

header for an upcoming next release. The placeholder token

is given via I<--token>.

=head2 --token

Regular expression to use to detect the token for an upcoming

release if I<--next> is used. If not explicitly given, defaults

to C<\{\{\$NEXT\}\}>.

=head2 --headers

If given, only print out the release header lines, without any of the

changes.

=head2 --reverse

Prints the releases in reverse order (from the oldest to latest).

=head2 --check

Only check if the changelog is formatted properly using the changes_file_ok

function of L<Test::CPAN::Changes>.

=head2 --help

This help