sub getDocumentInfo {
  my ($object, $file_id) = @_;
  # ...
}