my ( $self, $file ) = ( $_[0],
                        ( $_[0]->{file} = $_[1] || $_[0]->{file} ) );

##</code><code>##

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