/usr/share/perl5/Dist/Zilla/Plugin/Run/Clean.pm is in libdist-zilla-plugin-run-perl 0.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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | use strict;
use warnings;
package Dist::Zilla::Plugin::Run::Clean;
# ABSTRACT: execute a command of the distribution on 'dzil clean'
# vim: set ts=8 sts=4 sw=4 tw=115 et :
our $VERSION = '0.043';
use Moose;
with
'Dist::Zilla::Role::Plugin',
'Dist::Zilla::Plugin::Run::Role::Runner';
use Moose::Util ();
use namespace::autoclean;
{
use Dist::Zilla::Dist::Builder;
my $meta = Moose::Util::find_meta('Dist::Zilla::Dist::Builder');
$meta->make_mutable;
Moose::Util::add_method_modifier($meta, 'after',
[
clean => sub {
my ($zilla, $dry_run) = @_;
foreach my $plugin (grep { $_->isa(__PACKAGE__) } @{ $zilla->plugins })
{
# Dist::Zilla really ought to have a -CleanerProvider hook...
$plugin->clean($dry_run);
}
},
],
);
$meta->make_immutable;
}
sub clean
{
my ($self, $dry_run) = @_;
# may need some subrefs for positional parameters?
my $params = {};
foreach my $run_cmd (@{$self->run}) {
$self->_run_cmd($run_cmd, $params, $dry_run);
}
if (my @code = @{ $self->eval }) {
my $code = join "\n", @code;
$self->_eval_cmd($code, $params, $dry_run);
}
}
__PACKAGE__->meta->make_immutable;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::Run::Clean - execute a command of the distribution on 'dzil clean'
=head1 VERSION
version 0.043
=head1 SYNOPSIS
In your F<dist.ini>:
[Run::Clean]
run = script/do_that.pl
eval = unlink scratch.dat
=head1 DESCRIPTION
This plugin executes the specified command(s) when cleaning the distribution.
=head1 POSITIONAL PARAMETERS
See L<Dist::Zilla::Plugin::Run/CONVERSIONS>
for the list of common formatting variables available to all plugins.
(Some of them may not work properly, because the distribution is not built
when running the clean command. These are not tested yet - patches welcome!)
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Dist-Zilla-Plugin-Run>
(or L<bug-Dist-Zilla-Plugin-Run@rt.cpan.org|mailto:bug-Dist-Zilla-Plugin-Run@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://dzil.org/#mailing-list>.
There is also an irc channel available for users of this distribution, at
L<C<#distzilla> on C<irc.perl.org>|irc://irc.perl.org/#distzilla>.
=head1 AUTHOR
Torsten Raudssus <torsten@raudss.us> L<https://raudss.us/>
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2010 by L<Raudssus Social Software|https://raudss.us/>.
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
|