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 : perltidy_okw.pl

#!/usr/bin/perl -w

# Example use a perltidy postfilter to outdent certain leading keywords

# Usage:
# perltidy_okw.pl -sil=1 file.pl

# This version outdents hardwired keywords 'step', 'command', and 'expected'
# The following is an example of the desired effect. The flag -sil=1 is
# needed to get a starting indentation level so that the outdenting 
# is visible.

=pod
step 4;
command 'Share project: project1';
expected 'A project megjelenik a serveren';
      shareProject ('project1', 'login', '123', Login => 1, PortalServer =>
$openJoinAddress);
      valueCheck ('project1_share', listBIMCloudData ('projects'));

step 5;
command 'quitAC';
      quitAC ();
=cut

# Run it exactly like perltidy, and the postfilter removes the
# leading whitespace of lines which begin with your keywords.  The
# postfilter works on the file as a single string, so the 'm' quote
# modifier is needed to make the ^ and $ string positioners work

# See http://perltidy.sourceforge.net/Tidy.html for further details
# on how to call Perl::Tidy
use Perl::Tidy;
my $arg_string = undef;
my $err=Perl::Tidy::perltidy(
    argv => $arg_string,
    postfilter =>
      sub { $_ = $_[0]; s/^\s*(step|command|expected)(.*)$/$1$2/gm; return $_ }
);
if ($err) {
    die "Error calling perltidy\n";
}

${this.title}

Code Editor : perltidy_okw.pl