Bump the Moose suggestion and you can get close to that functionality now...

use Moose;

has 'string' => ( isa => 'Str', is => 'rw' );
has 'times'  => ( isa => 'Int', is => 'rw' );

sub foo {
  my $self = shift;
  my ( $string, $times ) = ( $self->string, $self->times );
}
[download]