30 lines
628 B
Perl
30 lines
628 B
Perl
|
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';
|