#!/usr/bin/perl

package BreakCmm;

use strict;
use warnings;

use Class::MakeMethods::Standard::Hash
    (
     'new'    => 'new',
     'scalar' => 'sleep',
    );

my $bc = BreakCmm->new;

$bc->sleep(5);

print "sleep = ", $bc->sleep, "\n";
sleep($bc->sleep);

__END__
Output:
Can't use string ("5") as a HASH ref while "strict refs" in use at /usr/local/share/perl/5.8.2/Class/MakeMethods/Standard/Hash.pm line 179.

##</code><code>##

#!/usr/bin/perl

package BreakCmm;

use strict;
use warnings;

use Class::MakeMethods::Standard::Hash
    (
     'new'    => 'new',
     'scalar' => 'rest',
    );

my $bc = BreakCmm->new;

$bc->rest(5);

print "rest = ", $bc->rest, "\n";
sleep($bc->rest);

__END__