Help for this page

Select Code to Download

Select or download this

sub set_foo { 
    my $self = shift;
...

    ${ *$self }{foo} = $val;
}