File Coverage

blib/lib/Authen/SASL/Perl/SCRAM_SHA_1.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 14 17 82.3


line stmt bran cond sub pod time code
1              
2 1     1   56934 use strict;
  1         3  
  1         40  
3 1     1   5 use warnings;
  1         3  
  1         68  
4              
5             package Authen::SASL::Perl::SCRAM_SHA_1;
6              
7             =head1 NAME
8              
9             Authen::SASL::Perl::SCRAM_SHA_1 - SCRAM-SHA-1 support for Authen::SASL
10              
11             =head1 VERSION
12              
13             0.04
14              
15             =head1 SYNOPSIS
16              
17             # with Authen::SASL::SCRAM installed
18             use Authen::SASL;
19              
20             my $client = Authen::SASL->new(
21             username => 'user',
22             password => 'pass',
23             mechanism => 'SCRAM-SHA-1'
24             );
25             # authenticates using SCRAM SHA-1 hash
26              
27             =cut
28              
29 1     1   574 use parent 'Authen::SASL::SCRAM';
  1         439  
  1         14  
30              
31             our @VERSION = '0.04';
32              
33 0     0   0 sub _order { 10 }
34              
35             sub digest {
36 2     2 0 44 return 'SHA-1';
37             }
38              
39             =head1 BUGS
40              
41             Please report bugs via
42             L.
43              
44             =head1 SEE ALSO
45              
46             L, L, L
47              
48             =head1 AUTHOR
49              
50             Erik Huelsmann
51              
52             =head1 COPYRIGHT
53              
54             Copyright (c) 2023 Erik Huelsmann. All rights reserved. This program is
55             free software; you can redistribute it and/or modify it under the same
56             terms as Perl itself.
57              
58             =cut
59              
60             1;