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";