view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Author/Plicease/MakeMaker.pm  view on Meta::CPAN

    my $mod    = first { $_->name eq 'inc/mymm.pl' }        @{ $self->zilla->files };
    my $config = first { $_->name eq 'inc/mymm-config.pl' } @{ $self->zilla->files };
    my $build  = first { $_->name eq 'inc/mymm-build.pl' }  @{ $self->zilla->files };
    my $test   = first { $_->name eq 'inc/mymm-test.pl' }   @{ $self->zilla->files };
    my $clean  = first { $_->name eq 'inc/mymm-clean.pl' }  @{ $self->zilla->files };

    my @content = do {
      my $in  = $file->content;
      my $out = '';
      my $err = '';
      local @ARGV = ();
      my $error = Perl::Tidy::perltidy(
        source      => \$in,
        destination => \$out,
        stderr      => \$err,
        perltidyrc  => Dist::Zilla::Plugin::Author::Plicease->dist_dir->child('perltidyrc')->stringify,
      );
      $self->log("perltidy: $_") for split /\n/, $err;
      $self->log_fatal("perltidy failed!") if $error;
      split /\n/, $out;
    };