view release on metacpan or  search on metacpan

lib/App/GitHooks/Plugin/ValidateChangelogFormat.pm  view on Meta::CPAN

		# Verify that a list of changes is present.
		try
		{
			my $description = $release->changes();

			die "the release does not contain a description of changes.\n"
				if scalar( keys %$description ) == 0;
		}
		catch
		{
			push( @errors, "$error_prefix: $_" );
		};
	}

	# Raise an exception with all the errors found, if any.
	die join( '', @errors ) . "\n"
		if scalar( @errors ) != 0;

	return $PLUGIN_RETURN_PASSED;
}


=head1 SEE ALSO

=over 4

=item * L<Test::CPAN::Changes>

=item * L<CPAN::Changes::Spec>

=item * L<CPAN::Changes>

=back


=head1 BUGS

Please report any bugs or feature requests through the web interface at
L<https://github.com/guillaumeaubert/App-GitHooks-Plugin-ValidateChangelogFormat/issues/new>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

	perldoc App::GitHooks::Plugin::ValidateChangelogFormat


You can also look for information at:

=over

=item * GitHub's request tracker

L<https://github.com/guillaumeaubert/App-GitHooks-Plugin-ValidateChangelogFormat/issues>

=item * AnnoCPAN: Annotated CPAN documentation

l<http://annocpan.org/dist/app-githooks-plugin-validatechangelogformat>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/app-githooks-plugin-validatechangelogformat>

=item * MetaCPAN

L<https://metacpan.org/release/App-GitHooks-Plugin-ValidateChangelogFormat>

=back


=head1 AUTHOR

L<Guillaume Aubert|https://metacpan.org/author/AUBERTG>,
C<< <aubertg at cpan.org> >>.


=head1 COPYRIGHT & LICENSE

Copyright 2015-2017 Guillaume Aubert.

This code is free software; you can redistribute it and/or modify it under the
same terms as Perl 5 itself.

This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE. See the LICENSE file for more details.

=cut

1;