#!perl

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

use 5.008;                                             # utf8;
use strict;
use warnings;
use utf8;

## no critic (NamingConventions::Capitalization)
package main;
$main::VERSION = '1.000000';
# PODNAME: cpan-changes-markdown

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

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 );
binmode *STDOUT, ':encoding(UTF-8)';
print $changes->serialize 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.000000

=head1 SYNOPSIS

  cpan-changes-markdown Changes > Changes.mkdn

=head1 AUTHOR

Kent Fredric <kentfredric@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 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
