byp4a55 professor6T9

Linux msk-1-vm-cn73 5.14.0-710.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed May 27 09:04:56 UTC 2026 x86_64
Apache
127.0.0.1

filter_example.pl

#!/usr/bin/perl -w
use Perl::Tidy;

# Illustrate use of prefilter and postfilter parameters to perltidy.  
# This example program uses a prefilter it to convert the 'method'
# keyword to 'sub', and a postfilter to convert back, so that perltidy will
# work for Method::Signature::Simple code.  
# NOTE: This program illustrates the use of filters but has not been
# extensively tested.

# usage:
#   perl filter_example.pl filter_example.in
#
# How it works:
# 1. First the prefilter changes lines beginning with 'method foo' to 'sub
# METHOD_foo'
# 2. Then perltidy formats the code
# 3. Then the postfilter changes 'sub METHOD_' to 'method ' everywhere.
# (This assumes that there are no methods named METHOD_*, and that the keyword
# method always begins a line in the input file).  
#
# Debugging hints: 
# 1. Try commenting out the postfilter and running with 
# the --notidy option to see what the prefilter alone is doing.
# 2. Then run with both pre- and post ters with --notidy to be sure
# that the postfilter properly undoes the prefilter.

my $arg_string = undef;
my $err=Perl::Tidy::perltidy(
    argv => $arg_string,
    prefilter =>
      sub { $_ = $_[0]; s/^\s*method\s+(\w.*)/sub METHOD_$1/gm; return $_ },
    postfilter =>
      sub { $_ = $_[0]; s/sub\s+METHOD_/method /gm; return $_ }
);
if ($err) {
    die "Error calling perltidy\n";
}
__END__

# Try running on the following code (file filter_example.in):

use Method::Signatures::Simple;

method foo { $self->bar }

# with signature
    method foo($bar, %opts) { $self->bar(reverse $bar) if $opts{rev};
    }

# attributes
    method foo : lvalue { $self->{foo} 
}

# change invocant name
    method 
foo ($class: $bar) { $class->bar($bar) }

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0755	2026-06-06 11:47:28
..	dir	-	0/0	0755	2026-06-06 11:47:28
README	text/plain	990 B	0/0	0644	2006-06-14 12:16:05
bbtidy.pl	text/x-perl	487 B	0/0	0644	2012-07-14 09:14:36
break_long_quotes.pl	text/x-perl	6.35 KB	0/0	0644	2013-08-05 08:35:01
delete_ending_blank_lines.pl	text/x-perl	2.58 KB	0/0	0644	2019-01-21 10:35:58
ex_mp.pl	text/x-perl	1.38 KB	0/0	0644	2012-07-14 09:47:01
filter_example.in	text/plain	346 B	0/0	0644	2012-07-01 11:52:31
filter_example.pl	text/x-perl	1.69 KB	0/0	0644	2012-07-14 09:18:31
find_naughty.pl	text/x-perl	3.08 KB	0/0	0644	2013-08-05 08:35:22
fix-scbb-csc-bug.pl	text/x-perl	3.27 KB	0/0	0644	2020-09-05 07:28:33
lextest	text/plain	698 B	0/0	0644	2002-02-09 08:18:00
perlcomment.pl	text/x-perl	6.96 KB	0/0	0644	2013-08-05 08:35:48
perllinetype.pl	text/x-perl	1.93 KB	0/0	0644	2012-07-14 09:21:46
perlmask.pl	text/x-perl	8.5 KB	0/0	0644	2013-08-05 08:35:59
perltidy_okw.pl	text/x-perl	1.25 KB	0/0	0644	2017-05-19 08:07:59
perltidyrc_dump.pl	text/x-perl	11.24 KB	0/0	0644	2018-03-22 11:51:50
perlxmltok.pl	text/x-perl	7.92 KB	0/0	0644	2012-07-14 09:23:20
testfa.t	text/plain	1.87 KB	0/0	0644	2002-02-12 09:23:14
testff.t	text/plain	2.07 KB	0/0	0644	2006-06-08 07:55:39

Team Anon Force

https://t.me/Professor6T9x