The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

LION / Data-URIID-v0.14 / lib / Data / URIID / Digest.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
—
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

              
# Copyright (c) 2023-2024 Löwenfelsen UG (haftungsbeschränkt)
# Copyright (c) 2023-2024 Philipp Schafft
# licensed under Artistic License 2.0 (see LICENSE file)
# ABSTRACT: Extractor for identifiers from URIs
package Data::URIID::Digest;
use strict;
use warnings;
use parent qw(Digest::base);
use Carp;
our $VERSION = v0.14;
# Private constructor:
sub _new {
    my ($pkg, $value) = @_;
    return bless \$value, $pkg;
}
sub new {
    croak 'Not implemented';
}
sub add {
    croak 'Not implemented';
}
# Just return ourselfs as we do not reset on digest read.
sub clone {
    return $_[0];
}
# Core digest method:
sub digest {
    my ($self) = @_;
    return pack('H*', ${$self});
}
# Helper to avoid pack()/unpack():
sub hexdigest {
    my ($self) = @_;
    return ${$self};
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Data::URIID::Digest - Extractor for identifiers from URIs
=head1 VERSION
version v0.14
=head1 SYNOPSIS
    use Data::URIID::Digest;
    my $extractor = Data::URIID->new;
    my $result = $extractor->lookup( $URI );
    my $digest = $result->digest('sha-3-512', as => 'Digest');
This is an internal module. It is used to emulate an object created by L<Digest>.
This module inherits from L<Digest::base>.
=head1 AUTHOR
Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2023-2025 by Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut