Help for this page

Select Code to Download

Select or download this

sub whatever {
    my $self = shift;
...
    $self->{file} = shift if @_;
    $self->{file};
}