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