/usr/share/perl5/Dist/Zilla/Plugin/ConfirmRelease.pm is in libdist-zilla-perl 5.043-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | package Dist::Zilla::Plugin::ConfirmRelease;
# ABSTRACT: prompt for confirmation before releasing
$Dist::Zilla::Plugin::ConfirmRelease::VERSION = '5.043';
use Moose;
with 'Dist::Zilla::Role::BeforeRelease';
use namespace::autoclean;
sub before_release {
my ($self, $tgz) = @_;
my $releasers = join q{, },
map {; $_->plugin_name }
@{ $self->zilla->plugins_with(-Releaser) };
$self->log("*** Preparing to release $tgz with $releasers ***");
my $prompt = "Do you want to continue the release process?";
my $default = exists $ENV{DZIL_CONFIRMRELEASE_DEFAULT}
? $ENV{DZIL_CONFIRMRELEASE_DEFAULT}
: 0;
my $confirmed = $self->zilla->chrome->prompt_yn(
$prompt,
{ default => $default }
);
$self->log_fatal("Aborting release") unless $confirmed;
}
__PACKAGE__->meta->make_immutable;
1;
#pod =head1 DESCRIPTION
#pod
#pod This plugin prompts the author whether or not to continue before releasing
#pod the distribution to CPAN. It gives authors a chance to abort before
#pod they upload.
#pod
#pod The default is "no", but you can set the environment variable
#pod C<DZIL_CONFIRMRELEASE_DEFAULT> to "yes" if you just want to hit enter to
#pod release.
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::ConfirmRelease - prompt for confirmation before releasing
=head1 VERSION
version 5.043
=head1 DESCRIPTION
This plugin prompts the author whether or not to continue before releasing
the distribution to CPAN. It gives authors a chance to abort before
they upload.
The default is "no", but you can set the environment variable
C<DZIL_CONFIRMRELEASE_DEFAULT> to "yes" if you just want to hit enter to
release.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|