NAME

Eponymous::Hash - Translates named variables to a hash list with corresponding keys

DESCRIPTION

Translates named variables to a hash list with corresponding keys

USAGE

use Eponymous::Hash 'epy';

The name 'epy' is arbitrary. You may define any name in the use statement.

With scalars

my $mammal = 'ponycorn';
my $diet = 'sprinkles';
my %hash = epy($mammal, $diet)
# (mammal => 'ponycorn', diet => 'sprinkles')

With hash reference

my $thing = {
mammal => 'ponycorns',
diet => 'sprinkls'
};
my %hash = epy($thing, 'mammal', 'diet');
# (mammal => 'ponycorn', diet => 'sprinkles')

With blessed object

my $thing = Thing->new;
$thing->mammal; # ponycorns
$thing->diet; # sprinkles
my %hash = epy($thing, 'mammal', 'diet');
# (mammal => 'ponycorn', diet => 'sprinkles')

METHODS

eponymous_hash

Default method name. If parameter is passed to use statement, parameter will be used instead.

VERSION

0.02

AUTHOR

Glen Hinkle tempire@cpan.org