package Code::TidyAll::Plugin::PerlTidy;

use strict;
use warnings;

use Capture::Tiny qw(capture_merged);
use Perl::Tidy;

use Moo;

extends 'Code::TidyAll::Plugin';

our $VERSION = '0.78';

sub transform_source {
    my ( $self, $source ) = @_;

    # This bit of insanity is needed because if some other code calls
    # Getopt::Long::Configure() to change some options, then everything can go
    # to hell. Internally perltidy() tries to use Getopt::Long without
    # resetting the configuration defaults, leading to very confusing
    # errors. See

    # perltidy reports errors in two different ways.
    # Argument/profile errors are output and an error_flag is returned.
    # Syntax errors are sent to errorfile or stderr, depending on the
    # the setting of -se/-nse (aka --standard-error-output).  These flags
    # might be hidden in other bundles, e.g. -pbp.  Be defensive and
    # check both.
    my ( $output, $error_flag, $errorfile, $stderr, $destination );
    $output = capture_merged {
        $error_flag = Perl::Tidy::perltidy(
            argv        => $self->argv,
            source      => \$source,
            destination => \$destination,
            stderr      => \$stderr,
            errorfile   => \$errorfile
    die $stderr          if $stderr;
    die $errorfile       if $errorfile;
    die $output          if $error_flag;
    print STDERR $output if defined($output);
    return $destination;


# ABSTRACT: Use perltidy with tidyall



=encoding UTF-8

=head1 NAME

Code::TidyAll::Plugin::PerlTidy - Use perltidy with tidyall

=head1 VERSION

version 0.78


   # In configuration:

   ; Configure in-line
   select = lib/**/*.pm
   argv = --noll

   ; or refer to a .perltidyrc in the same directory
   select = lib/**/*.pm
   argv = --profile=$ROOT/.perltidyrc


Runs L<perltidy>, a Perl tidier.


Install perltidy from CPAN.

    cpanm perltidy


This plugin accepts the following configuration options:

=head2 argv

Arguments to pass to C<perltidy>.

=head1 SUPPORT

Bugs may be submitted at

I am also usually active on IRC as 'autarch' on C<irc://>.

=head1 SOURCE

The source code repository for Code-TidyAll can be found at

=head1 AUTHORS

=over 4

=item *

Jonathan Swartz <>

=item *

Dave Rolsky <>



This software is copyright (c) 2011 - 2020 by Jonathan Swartz.

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

The full text of the license can be found in the F<LICENSE> file included with
this distribution.