App-Changelord/lib/App/Changelord/Command/Print.pm

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.

To generate the changelog without the NEXT release, uses the
C<--no-next> option.
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',
);

option next => (
    is => 'ro',
    default => 1,
    negatable => 1,
    doc => 'include the NEXT release. Defaults to true.',
);

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

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