#!/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__