sub whatever {
    my $self = shift;
    my $file = $self->file(@_);
    # ... do stuff
}

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