Sophie: perl-Filter-Simple-0.880.0-3.mga4 noarch

perl-Filter-Simple-0.880.0-3.mga4.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

package Demo1;
$VERSION = '0.01';

use Filter::Simple sub {
	my $class = shift;
	while (my ($from, $to) = splice @_, 0, 2) {
		s/$from/$to/g;
	}
};

1;