#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];


sub new {
    my $class = shift;
    my $self  = {
        _id  => shift,
        _value=> shift,
    };
    bless $self, $class;
    return $self;
}

sub setter {
    my ( $self, $set_name, $data ) = @_;
    $self->{"_$set_name"} = $data if defined($data);
    return $self->{"_$set_name"};
}

sub getter {
    my ( $self, $get_name ) = @_;
    return $self->{"_$get_name"};
}

sub test { $_ eq 'fred' }

my $string;
my $obj = main->new( '1', 'STORAGE' );

cmpthese -1, {
    a=> sub {
        for ( 1 .. 1000 ) {
            $obj->setter( 'string', "value$_" );
            test( $obj->getter('string') );
	}
    },
    b=> sub {
        for( 1 .. 1000 ) {
            $string = "string$_";
            test( $string );
        }
    },
};

__END__
C:\test>junk44
    Rate    a    b
a  287/s   -- -88%
b 2437/s 748%   --