#!/usr/bin/perl
# $File: //member/autrijus/HTML-FromANSI/bin/ansi2html $ $Author: autrijus $
# $Revision: #1 $ $Change: 1 $ $DateTime: 2002/06/11 08:35:12 $

$VERSION = '0.01';

=head1 NAME

cpansign - CPAN signature management utility

=head1 SYNOPSIS

B<cpansig>
B<cpansig> sign		# ditto
B<cpansig> verify	# verify a signature

=head1 DESCRIPTION

TBD. :-)

=cut

use Module::Signature;

my $op = shift || 'sign';

if (my $sub = Module::Signature->can($op)) {
    $sub->(@ARGV);
}
else {
    die "No such operation: $op\n";
}


exit;

=head1 SEE ALSO

L<Module::Signature>

=head1 AUTHORS

Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>

=head1 COPYRIGHT

Copyright 2001, 2002 by Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut
