Source Filters in @INC perl5.8.9 ããå ¥ã£ãã¨ããã@INC ã®ãªãã« coderef ã¶ã£ããã©ãã¦ãã½ã¼ã¹ãã£ã«ã¿ããã¨ããæ©è½ã ããããã¦ã¿ãã package OreOreFilter; use strict; use warnings; use File::Spec; sub import { unshift @INC, new OreOreFilter(); } sub new { bless {}, shift } sub OreOreFilter::INC { my ($self, $fname) = @_; for my $inc (@INC) { next if ref $inc; my $real = File::Spec->catfile($inc, $fname); next unless -f $real; open my $f
{{#tags}}- {{label}}
{{/tags}}