#!/bin/bash
# Lists all Perl objects under the current directory, along with their
# identities. Identities are in the first column for easy processing.
# Symlinks are not included.
#
# Usage:
# index-perl-objects [find-arguments]

IFS=$'\n'

for file in $(find "$@" | sort); do
  [[ -L "$file" || -d "$file" ]] && continue
  identity=$(is-perl-object --no-query "$file")
  case $? in
    0) echo $identity "$file" ;;
    2) echo "-------------------------------- $file" ;;
  esac
done