package Demo_Importer; $VERSION = '0.01'; use Filter::Simple; sub import { use Data::Dumper 'Dumper'; print Dumper [ caller 0 ]; print Dumper [ @_ ]; } FILTER { s/dye/die/g; }
package Demo_Importer; $VERSION = '0.01'; use Filter::Simple; sub import { use Data::Dumper 'Dumper'; print Dumper [ caller 0 ]; print Dumper [ @_ ]; } FILTER { s/dye/die/g; }