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