Coderefs in @INC
file: examples/Klump.pm1: package Klump; 2: 3: push @INC,\&beedoop; 4: 5: sub beedoop { 6: my $file=$_[1]; 7: $file=~s{/}{::}g; 8: $file=~s{\.pm$}{}; 9: my $code=" 10: package $file; 11: print '-'x54,' 12: $file does not exist, but we continue anyway. 13: Powered by Coderefs-in-INC. 14: ','-'x54,' 15: '; 16: 1;"; 17: 18: open(my $fh,'<',\$code); 19: return $fh; 20: } 21: 1;