| File: | blib/lib/Crypt/SSLeay.pm |
| Coverage: | 81.8% |
| line | stmt | bran | cond | sub | pod | code |
|---|---|---|---|---|---|---|
| 1 | package Crypt::SSLeay; | |||||
| 2 | ||||||
| 3 | 2 2 2 | use Crypt::SSLeay::X509; | ||||
| 4 | ||||||
| 5 | 2 2 2 | use strict; | ||||
| 6 | 2 2 2 | use vars qw(@ISA $VERSION %CIPHERS); | ||||
| 7 | ||||||
| 8 | require DynaLoader; | |||||
| 9 | ||||||
| 10 | @ISA = qw(DynaLoader); | |||||
| 11 | $VERSION = '0.52_01'; | |||||
| 12 | ||||||
| 13 | bootstrap Crypt::SSLeay $VERSION; | |||||
| 14 | ||||||
| 15 | 2 2 2 | use vars qw(%CIPHERS); | ||||
| 16 | %CIPHERS = ( | |||||
| 17 | 'NULL-MD5' => "No encryption with a MD5 MAC", | |||||
| 18 | 'RC4-MD5' => "128 bit RC4 encryption with a MD5 MAC", | |||||
| 19 | 'EXP-RC4-MD5' => "40 bit RC4 encryption with a MD5 MAC", | |||||
| 20 | 'RC2-CBC-MD5' => "128 bit RC2 encryption with a MD5 MAC", | |||||
| 21 | 'EXP-RC2-CBC-MD5' => "40 bit RC2 encryption with a MD5 MAC", | |||||
| 22 | 'IDEA-CBC-MD5' => "128 bit IDEA encryption with a MD5 MAC", | |||||
| 23 | 'DES-CBC-MD5' => "56 bit DES encryption with a MD5 MAC", | |||||
| 24 | 'DES-CBC-SHA' => "56 bit DES encryption with a SHA MAC", | |||||
| 25 | 'DES-CBC3-MD5' => "192 bit EDE3 DES encryption with a MD5 MAC", | |||||
| 26 | 'DES-CBC3-SHA' => "192 bit EDE3 DES encryption with a SHA MAC", | |||||
| 27 | 'DES-CFB-M1' => "56 bit CFB64 DES encryption with a one byte MD5 MAC", | |||||
| 28 | ); | |||||
| 29 | ||||||
| 30 | ||||||
| 31 | # A xsupp bug made this nessesary | |||||
| 32 | 2 | sub Crypt::SSLeay::CTX::DESTROY { shift->free; } | ||||
| 33 | 0 | sub Crypt::SSLeay::Conn::DESTROY { shift->free; } | ||||
| 34 | 0 | sub Crypt::SSLeay::X509::DESTROY { shift->free; } | ||||
| 35 | ||||||
| 36 | 1; | |||||
| 37 | ||||||