File Coverage

blib/lib/Authen/SASL/Perl/EXTERNAL.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 20 23 87.0


line stmt bran cond sub pod time code
1             # Copyright (c) 1998-2002 Graham Barr <gbarr@pobox.com> and 2001 Chris Ridd
2             # <chris.ridd@isode.com>. All rights reserved. This program
3             # is free software; you can redistribute it and/or modify it under the
4             # same terms as Perl itself.
5              
6             package Authen::SASL::Perl::EXTERNAL;
7              
8 2     2   117 use strict;
  2         20  
  2         32  
9 2     2   30 use vars qw($VERSION @ISA);
  2         18  
  2         29  
10              
11             $VERSION = "1.03";
12             @ISA = qw(Authen::SASL::Perl);
13              
14             my %secflags = (
15             noplaintext  => 1,
16             nodictionary => 1,
17             );
18              
19 35     35   389 sub _order { 2 }
20             sub _secflags {
21 12     12   109   shift;
22 12         216   grep { $secflags{$_} } @_;
  1         21  
23             }
24              
25 2     2 0 24 sub mechanism { 'EXTERNAL' }
26              
27             sub client_start {
28 1     1 0 16   ''
29             }
30              
31             sub client_step {
32 1     1 0 22   shift->_call('user');
33             }
34              
35             1;
36              
37             __END__
38            
39             =head1 NAME
40            
41             Authen::SASL::Perl::EXTERNAL - External Authentication class
42            
43             =head1 SYNOPSIS
44            
45             use Authen::SASL qw(Perl);
46            
47             $sasl = Authen::SASL->new(
48             mechanism => 'EXTERNAL',
49             callback => {
50             user => $user
51             },
52             );
53            
54             =head1 DESCRIPTION
55            
56             This method implements the client part of the EXTERNAL SASL algorithm,
57             as described in RFC 2222.
58            
59             =head2 CALLBACK
60            
61             The callbacks used are:
62            
63             =over 4
64            
65             =item user
66            
67             The username to be used for authentication
68            
69             =back
70            
71             =head1 SEE ALSO
72            
73             L<Authen::SASL>,
74             L<Authen::SASL::Perl>
75            
76             =head1 AUTHORS
77            
78             Software written by Graham Barr <gbarr@pobox.com>,
79             documentation written by Peter Marschall <peter@adpm.de>.
80            
81             Please report any bugs, or post any suggestions, to the perl-ldap mailing list
82             <perl-ldap@perl.org>
83            
84             =head1 COPYRIGHT
85            
86             Copyright (c) 1998-2004 Graham Barr.
87             All rights reserved. This program is free software; you can redistribute
88             it and/or modify it under the same terms as Perl itself.
89            
90             Documentation Copyright (c) 2004 Peter Marschall.
91             All rights reserved. This documentation is distributed,
92             and may be redistributed, under the same terms as Perl itself.
93            
94             =cut
95