package App::Changelord::Command::Print;

use 5.36.0;

use Moo;
use CLI::Osprey
    desc => 'print the changelog',
    description_pod => <<'END';
Render the full changelog. The default is to render the changelog
in markdow, but the option C<--json> can be used to have a JSON
version instead.
END

with 'App::Changelord::Role::Changelog';
with 'App::Changelord::Role::ChangeTypes';
with 'App::Changelord::Role::Render';

option json => (
    is => 'ro',
    default => 0,
    doc => 'output schema as json',
);

sub run($self) {
    no warnings 'utf8';
    print $self->as_markdown;
}

'end of App::Changelog::Command::Print';