my $self = shift;
$self->{file} = shift || $self->{file};
# or...
$file = $self->{file} = shift || $self->{file};