view release on metacpan or  search on metacpan

script/ru-perltidy  view on Meta::CPAN

    my $result     = 0;
    my $max_length = max map length, @files;

    for my $file (@files) {

        print "$file  ", " " x ( $max_length - length $file );

        my ( $unicode, $encoding ) = file_decode $file, \@encodings;

		local @ARGV = ();
        Perl::Tidy::perltidy(
            source      => \$unicode,
            destination => \my $tidied_code,
        );

        if ( defined $tidied_code and $unicode eq $tidied_code ) {
            print CYAN, "equals";
        }
        elsif ( defined $tidied_code and length $tidied_code ) {
            file_encode $file, $encoding, $tidied_code;