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