Select Code to Download

package Storm;

...
... # other methods

1;

my $varname = $self->get_varname();
$self->set_varname($new_name);

sub new {
    my ($class, $args) = @_;
...

    return;
}