package Cool;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $self->_Init( @_ );
    return $self;
}

sub _Init {
    my $self = shift;
    {
        no strict 'refs';
        for my $method ( @_ ) {
            *{ $method } = sub :lvalue { $_[0]->{$method} };
        }
    }
}
"That's cool man";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Cool;

my $obj = Cool->new( qw(foo bar baz) );
$obj->bar = "A better way of doing this";
print $obj->bar, "\n";