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