package Acme::PerlTidy;
use strict;
use Perl::Tidy;
our $VERSION = '0.02';
open 0 or print "Can't open '$0'\n" and exit;
my $src = join'', <0>;
my $dest;
Perl::Tidy::perltidy(
source => \$src,
destination => $0,
);
#print $dest;
1;
__END__
=head1 NAME
Acme::PerlTidy - Clean code every time
=head1 SYNOPSIS
use Acme::PerlTidy;
# your code here.
=head1 DESCRIPTION
Acme::PerlTidy cleans up your code every time you run it.
=head1 THE AUTHOR
Yung-chung Lin (a.k.a. xern) <xern@cpan.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself
=head1 SEE ALSO
L<Perl::Tidy>
=cut