Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
README	990 B	-rw-r--r--
bbtidy.pl	487 B	-rw-r--r--
break_long_quotes.pl	6.35 KB	-rw-r--r--
ex_mp.pl	1.38 KB	-rw-r--r--
filter_example.in	346 B	-rw-r--r--
filter_example.pl	1.69 KB	-rw-r--r--
find_naughty.pl	3.08 KB	-rw-r--r--
lextest	698 B	-rw-r--r--
perlcomment.pl	6.96 KB	-rw-r--r--
perllinetype.pl	1.93 KB	-rw-r--r--
perlmask.pl	8.5 KB	-rw-r--r--
perltidy_okw.pl	1.25 KB	-rw-r--r--
perltidyrc_dump.pl	10.92 KB	-rw-r--r--
perlxmltok.pl	7.92 KB	-rw-r--r--
testfa.t	1.87 KB	-rw-r--r--
testff.t	2.07 KB	-rw-r--r--

Code Editor : ex_mp.pl

#!/usr/bin/perl -w

# example call to perltidy from man page documentation of Perl::Tidy

use strict;
use Perl::Tidy;

my $source_string = <<'EOT';
my$error=Perl::Tidy::perltidy(argv=>$argv,source=>\$source_string,
    destination=>\$dest_string,stderr=>\$stderr_string,
errorfile=>\$errorfile_string,);
EOT

my $dest_string;
my $stderr_string;
my $errorfile_string;
my $argv = "-npro";   # Ignore any .perltidyrc at this site
$argv .= " -pbp";     # Format according to perl best practices
$argv .= " -nst";     # Must turn off -st in case -pbp is specified
$argv .= " -se";      # -se appends the errorfile to stderr
## $argv .= " --spell-check";  # uncomment to trigger an error

print "<<RAW SOURCE>>\n$source_string\n";

my $error = Perl::Tidy::perltidy(
    argv        => $argv,
    source      => \$source_string,
    destination => \$dest_string,
    stderr      => \$stderr_string,
    errorfile   => \$errorfile_string,    # not used when -se flag is set
    ##phasers     => 'stun',                # uncomment to trigger an error
);

if ($error) {

# serious error in input parameters, no tidied output
    print "<<STDERR>>\n$stderr_string\n";
    die "Exiting because of serious errors\n";
}

if ($dest_string)      { print "<<TIDIED SOURCE>>\n$dest_string\n" }
if ($stderr_string)    { print "<<STDERR>>\n$stderr_string\n" }
if ($errorfile_string) { print "<<.ERR file>>\n$errorfile_string\n" }

${this.title}

Code Editor : ex_mp.pl