Help for this page

Select Code to Download

Select or download this

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