#!/usr/bin/perl
# listsubs - display list of subroutines in a package or script

use strict;

my $file=shift @ARGV;
{
  package Query;
  require $file;
}
for my $sym ( keys %Query:: ) {
  no strict 'refs';
  print "Query::$sym\n" if defined *{'Query::'.$sym}{CODE};
  print "$file: subref \$$sym\n" if ref ${*{'Query::'.$sym}{SCALAR}} eq 'CODE';
}