| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  |  | 
| 2 | 1 |  |  | 1 |  | 62503 | use strict; | 
|  | 1 |  |  |  |  | 3 |  | 
|  | 1 |  |  |  |  | 30 |  | 
| 3 | 1 |  |  | 1 |  | 16 | use warnings; | 
|  | 1 |  |  |  |  | 4 |  | 
|  | 1 |  |  |  |  | 46 |  | 
| 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.03 | 
| 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 |  | 481 | use parent 'Authen::SASL::SCRAM'; | 
|  | 1 |  |  |  |  | 323 |  | 
|  | 1 |  |  |  |  | 6 |  | 
| 30 |  |  |  |  |  |  |  | 
| 31 |  |  |  |  |  |  | our @VERSION = '0.03'; | 
| 32 |  |  |  |  |  |  |  | 
| 33 | 0 |  |  | 0 |  | 0 | sub _order { 10 } | 
| 34 |  |  |  |  |  |  |  | 
| 35 |  |  |  |  |  |  | sub digest { | 
| 36 | 2 |  |  | 2 | 0 | 35 | 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; |