package Filter::Include;
use warnings; use strict;
use Filter::Util::Call;
sub import
{
@_==2 or die qq{usage: use Filter::Include "filename"};
open my $f, "<", $_[1] or die qq{cannot open include file "$_[1]": $!};
read $f, my $d, -s $f or die qq{cannot read file "$_[1]": $!};
filter_add(sub {
$_ = $d;
filter_del();
1;
});
}
1;
__END__
####
#!perl -w
use warnings; use strict;
my(@a, @b);
@a = (
1, 2,
do{ use Filter::Include "./second"; },
7, 8);
print "a(@a) b(@b)\n";
__END__
##
##
3, 4); @b = (5, 6,