#!/usr/bin/

perl

 

use strict;
use warnings;
use Carp;
use English;

use

Perl

 ::Tidy;

#-------------------------------------------------------------------------------

my $script = 'test.pl';
my $argv  = '-ci=4 -nolq';

# -nolq : No Outdenting Long Quotes
# -ci=n, --continuation-indentation=n
# input parameters as described in the

perl

 tidy(1) man page

#-------------------------------------------------------------------------------

open my $SCRIPT, '<', $script
    or croak "Can't open '$script': $OS_ERROR";

my $source = do { local $/; <$SCRIPT> };

close $SCRIPT;

my @destination = undef;

perl

 tidy(
    source      => $source,
    destination => @destination,
    argv        => $argv,
);

open my $TDYSCRIPT, '>', $script . '.tdy'
    or croak "Can't open '$script.tdy': $OS_ERROR";

foreach my $line (@destination) {
    print {$TDYSCRIPT} $line;
}

close $TDYSCRIPT;

exit;