#!perl

## no critic
eval 'exec echo Please execute this code with perl'    # Guard
  if 0;
## use critic

use 5.006;                                             # our
use strict;
use warnings;

## no critic (NamingConventions::Capitalization)
package main;

# PODNAME: cpan-changes-markdown

# ABSTRACT: A simple incarnation of CPAN::Changes to Markdown

our $VERSION = '1.000001';

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Carp qw(croak);

my ($filename) = @ARGV;

if ( not $filename ) {
  croak "$0 Changes > Changes.mkdn";
}







use CPAN::Changes::Markdown;
my $changes = CPAN::Changes::Markdown->load_utf8($filename);
my $output  = $changes->serialize;
utf8::encode($output);    ## no critic
print $output or croak q[Can't write to STDOUT];

exit 0;

__END__

=pod

=encoding UTF-8

=head1 NAME

cpan-changes-markdown - A simple incarnation of CPAN::Changes to Markdown

=head1 VERSION

version 1.000001

=head1 SYNOPSIS

  cpan-changes-markdown Changes > Changes.mkdn

=head1 AUTHOR

Kent Fredric <kentnl@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Kent Fredric <kentfredric@gmail.com>.

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
