home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Signature.pm < prev    next >
Encoding:
Perl POD Document  |  2001-04-24  |  699 b   |  45 lines
  1. # $Id: Signature.pm,v 1.1 2001/03/31 08:44:51 btrott Exp $
  2.  
  3. package Crypt::DSA::Signature;
  4. use strict;
  5.  
  6. sub new {
  7.     my $class = shift;
  8.     bless { @_ }, $class;
  9. }
  10.  
  11. BEGIN {
  12.     no strict 'refs';
  13.     for my $meth (qw( s r )) {
  14.         *$meth = sub {
  15.             my $key = shift;
  16.             $key->{$meth} = shift if @_;
  17.             $key->{$meth}
  18.         };
  19.     }
  20. }
  21.  
  22. 1;
  23. __END__
  24.  
  25. =head1 NAME
  26.  
  27. Crypt::DSA::Signature - DSA signature object
  28.  
  29. =head1 SYNOPSIS
  30.  
  31.     use Crypt::DSA::Signature;
  32.     my $sig = Crypt::DSA::Signature->new;
  33.  
  34.     $sig->r($r);
  35.     $sig->s($s);
  36.  
  37. =head1 DESCRIPTION
  38.  
  39. =head1 AUTHOR & COPYRIGHTS
  40.  
  41. Please see the Crypt::DSA manpage for author, copyright,
  42. and license information.
  43.  
  44. =cut
  45.