package DemoRevCat;
$VERSION = '0.01';
use Filter::Simple;
FILTER_ONLY
code => sub {
my $ph = $Filter::Simple::placeholder;
s/($ph)\s*[.]\s*($ph)/$2.$1/g
},
package DemoRevCat;
$VERSION = '0.01';
use Filter::Simple;
FILTER_ONLY
code => sub {
my $ph = $Filter::Simple::placeholder;
s/($ph)\s*[.]\s*($ph)/$2.$1/g
},