#!/usr/bin/perl
# $File: //member/autrijus/Module-Signature/bin/cpansign $ $Author: autrijus $
# $Revision: #2 $ $Change: 623 $ $DateTime: 2002/08/14 00:49:58 $

$VERSION = '0.01';

=head1 NAME

cpansign - CPAN signature management utility

=head1 SYNOPSIS

    % cpansign		# create a signature
    % cpansign sign	# ditto, but overwrites without asking
    % cpansign verify	# verify a signature

=head1 DESCRIPTION

This utility let you create and verify SIGNATURE files. 

=cut

use Module::Signature;

(system("perldoc $0"), exit) if $ARGV[0] =~ /^-?-h(?:elp)?/i;

unshift @ARGV, '1' if $ARGV[0] eq 'sign';
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 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
