dslinux/user/perl/t/lib/Filter/Simple ExportTest.pm FilterOnlyTest.pm FilterTest.pm ImportTest.pm

[cayenne]

Update of /cvsroot/dslinux/dslinux/user/perl/t/lib/Filter/Simple
In directory antilope:/tmp/cvs-serv17422/t/lib/Filter/Simple

Added Files:
	ExportTest.pm FilterOnlyTest.pm FilterTest.pm ImportTest.pm 
Log Message:
Adding fresh perl source to HEAD to branch from

--- NEW FILE: ExportTest.pm ---
package Filter::Simple::ExportTest;

use Filter::Simple;
use base Exporter;

@EXPORT_OK = qw(ok);

FILTER { s/not// };

sub ok { print "ok @_\n" }

1;

--- NEW FILE: FilterOnlyTest.pm ---
package Filter::Simple::FilterOnlyTest;

use Filter::Simple;

FILTER_ONLY
	string => sub {
		my $class = shift;
		while (my($pat, $str) = splice @_, 0, 2) {
			s/$pat/$str/g;
		}
	};

--- NEW FILE: ImportTest.pm ---
package Filter::Simple::ImportTest;

use base 'Exporter';
@EXPORT = qw(say);

sub say { print @_ }

use Filter::Simple;

sub import {
	my $class = shift;
	print "ok $_\n" foreach @_;
	__PACKAGE__->export_to_level(1,$class);
}

FILTER { s/not // };


1;

--- NEW FILE: FilterTest.pm ---
package Filter::Simple::FilterTest;

use Filter::Simple;

FILTER {
	my $class = shift;
	while (my($pat, $str) = splice @_, 0, 2) {
		s/$pat/$str/g;
	}
};

1;