Plugin Interface für Config::General

sub ck { my($file, $base) = @_; print “open() tries $file … “; if($file =~ /blah/) { print “ignored\n”; return (0); } else { print “allowed\n”; return (1, @); } }

my %c = ParseConfig( -IncludeGlob => 1, -UseApacheInclude => 1, -ConfigFile => shift, -Plug => { pre_open => *ck } );

print Dumper(%c);