46 lines
879 B
Perl
46 lines
879 B
Perl
package App::Changelord::Command::Validate;
|
|
|
|
use 5.36.0;
|
|
|
|
use Moo;
|
|
use CLI::Osprey
|
|
doc => 'validate the changelog yaml',
|
|
description_pod => <<'END';
|
|
Validate the changelog against the JSON Schema used by changelord.
|
|
END
|
|
|
|
use Path::Tiny;
|
|
use JSON;
|
|
use YAML::XS;
|
|
use JSON::Schema::Modern;
|
|
|
|
with 'App::Changelord::Role::Changelog';
|
|
|
|
option json => (
|
|
is => 'ro',
|
|
default => 0,
|
|
doc => 'output schema as json',
|
|
);
|
|
|
|
sub run($self) {
|
|
local $YAML::XS::Boolean = 'boolean';
|
|
|
|
my $schema = path(__FILE__)->sibling('changelog-schema.yml')->slurp;
|
|
|
|
my $result = JSON::Schema::Modern->new(
|
|
output_format => 'detailed',
|
|
)->evaluate(
|
|
$self->changelog,
|
|
YAML::XS::Load($schema),
|
|
);
|
|
|
|
return say "woo, changelog is valid!" if( $result eq 'valid' );
|
|
|
|
|
|
print $result;
|
|
die "\n";
|
|
|
|
}
|
|
|
|
'end of App::Changelog::Command::Validate';
|