sub getDocumentInfo {
  my ($self,$file_id) = @_; # suspect problem here
  return DocumentInfo::new($file_id);
}