Parameter Munging
file: examples/Sreek.pm1: package Sreek; 2: 3: sub import { 4: my $package=shift; 5: my $caller=caller(); 6: my $singleton=bless {@_},$package; 7: no strict 'refs'; 8: ${"$caller\::singleton"}=$singleton; 9: } 10: 11: sub get { return $_[0]->{$_[1]} } 12: 1;
my $singleton=bless {@_},$package; ${"$caller\::singleton"}=$singleton;