# -*-perl-*-

# $Id: Command.plm,v 1.7 2005/02/21 20:57:44 thomas Exp $

# Common command module for what

# $Log: Command.plm,v $
# Revision 1.7  2005/02/21 20:57:44  thomas
# Change pod2usage debug level handling
#
# Revision 1.6  2004/10/13 16:06:51  thomas
# help typo fixed
#
# Revision 1.5  2004/07/22 19:12:24  thomas
# use global help function
#
# Revision 1.4  2004/06/08 14:15:40  thomas
# Make a What:: sub-class
#
# Revision 1.3  2004/03/22 17:39:44  thomas
# not worth changing
#
# Revision 1.2  2004/03/05 15:15:14  thomas
# cconf->what
#
# Revision 1.1.1.1  2003/12/02 14:47:34  thomas
# Initial version before export to 0.1.1
#

package What::Command;

use strict;
use Data::Dumper;
use Pod::Usage;

use base qw(What);

###############################################################################
# Global help

sub help {
  my $class = shift;

  # Derive the name of the class file from $class.
  my $input = ref($class) || $class;
  $input =~ s/::/\//g;
  $input .= ".pm";

  pod2usage (
             '-verbose'  => $::opts{debug},
             '-input'    => $input,
             '-pathlist' => '/s/what-0.1.31/lib',
            );
  return 0;

}

###############################################################################

1;
