Listing test2.cgi
-----------------
#!/usr/bin/perl
use Modern::Perl;
use aXML2;
my $stash = { title => "bob's bit's emporium" };
sub a { " foo " }
[my]stash->{'title'}[/]
print "hi"; (a)b(/)
listing aXML2.pm
----------------
package aXML2;
use Filter::Util::Call;
my $header = 'print "Content-type: text/html\n\n";';
sub import {
my ($type) = @_;
my ($ref) = [];
filter_add(bless $ref);
}
sub filter {
my ($self) = @_;
my ($status);
do {
if (s@@$header print qq\@@s) { $header = " "; }
s@@\@;@s;
s@@\@;@s;
s@@print qq\@@s;
s@\(([^\(]*?)\)([^\(]*?)\(/\)@\@; print &$1('$2'); print qq\@@s;
s@\[my\](.*?)\[/\]@\$$1@gs;
} if $status = filter_read() > 0;
$status;
}
1;