view release on metacpan or  search on metacpan

lib/App/Changelord.pm  view on Meta::CPAN

use App::Changelord::Role::ChangeTypes;

sub run($self) {
    App::Changelord::Command::Print->new(
        parent_command => $self,
    )->run;
}

subcommand $_ => 'App::Changelord::Command::' . ucfirst $_ =~ s/-(.)/uc $1/er
    for qw/ schema validate version bump init add git-gather print /;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

lib/App/Changelord/Command/Add.pm  view on Meta::CPAN

    description_pod => <<'END';
Add a change entry to the NEXT release.
END

use PerlX::Maybe;
use Path::Tiny;
use App::Changelord::Command::Init;

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

# TODO validate the type
option type => (
    format => 's',
    doc => 'type of change',
    is => 'ro',
);

option ticket => (
    format => 's',
    doc => 'associated ticket',
    is => 'ro',

lib/App/Changelord/Command/Validate.pm  view on Meta::CPAN

package App::Changelord::Command::Validate;
our $AUTHORITY = 'cpan:YANICK';
$App::Changelord::Command::Validate::VERSION = 'v0.0.1';
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';