1package Authen::SASL::Cyrus;
2require DynaLoader;
3require Authen::SASL::Cyrus::Security;
4@ISA = qw(DynaLoader);
5$VERSION = "0.13";
6bootstrap Authen::SASL::Cyrus $VERSION;
7
8
9
10#
11# Take a client filehandle and tie it to the Security subclass to
12# perform SASL encryption and decryption on the network traffic
13#
14sub tiesocket {
15  my($sasl, $fh) = @_;
16
17  new Authen::SASL::Cyrus::Security($fh, $sasl);
18}
19
20
21
22# Create a new client filehandle and tie it to the Security subclass to
23# perform SASL encryption and decryption on the network traffic
24sub securesocket {
25  my ($sasl, $fh) = @_;
26  my $glob = \do { local *GLOB; };
27  tie(*$glob, "Authen::SASL::Cyrus::Security", $fh, $sasl);
28  $glob;
29}
30
31
32
331;
34