sub isFile {
      my $self = shift if ref $_[0] && ref $_[0] eq $_[0]->{class};
      my $file = shift;   # a file in current directory expected 

##</code><code>##

  sub isFile {
      my $self = shift if ref $_[0];
      my $file = shift;