line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Mail::BIMI::CacheBackend::Null; |
2
|
|
|
|
|
|
|
# ABSTRACT: Cache handling |
3
|
|
|
|
|
|
|
our $VERSION = '3.20210301'; # VERSION |
4
|
30
|
|
|
30
|
|
595
|
use 5.20.0; |
|
30
|
|
|
|
|
109
|
|
5
|
30
|
|
|
30
|
|
201
|
use Moose; |
|
30
|
|
|
|
|
61
|
|
|
30
|
|
|
|
|
223
|
|
6
|
30
|
|
|
30
|
|
186157
|
use Mail::BIMI::Prelude; |
|
30
|
|
|
|
|
2327
|
|
|
30
|
|
|
|
|
330
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
with 'Mail::BIMI::Role::CacheBackend'; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
|
12
|
65
|
|
|
65
|
1
|
153
|
sub get_from_cache($self) { |
|
65
|
|
|
|
|
131
|
|
|
65
|
|
|
|
|
125
|
|
13
|
65
|
|
|
|
|
179
|
return; |
14
|
|
|
|
|
|
|
} |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
|
17
|
14
|
|
|
14
|
1
|
34
|
sub put_to_cache($self,$data) { |
|
14
|
|
|
|
|
24
|
|
|
14
|
|
|
|
|
23
|
|
|
14
|
|
|
|
|
19
|
|
18
|
14
|
|
|
|
|
115
|
return; |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
1
|
|
|
1
|
1
|
46
|
sub delete_cache($self) { |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
2
|
|
23
|
1
|
|
|
|
|
5
|
return; |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__END__ |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
=pod |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
=encoding UTF-8 |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
=head1 NAME |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
Mail::BIMI::CacheBackend::Null - Cache handling |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 VERSION |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
version 3.20210301 |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=head1 DESCRIPTION |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
Cache worker Role for Null storage |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
=head1 ATTRIBUTES |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
These values are derived from lookups and verifications made based upon the input values, it is however possible to override these with other values should you wish to, for example, validate a record before it is published in DNS, or validate an Indicator which is only available locally |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
=head2 parent |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
is=ro required |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
Parent class for cacheing |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
=head1 CONSUMES |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
=over 4 |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
=item * L<Mail::BIMI::Role::CacheBackend> |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
=back |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
=head1 EXTENDS |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
=over 4 |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
=item * L<Moose::Object> |
69
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
=back |
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
=head1 METHODS |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
=head2 I<get_from_cache()> |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
Retrieve this class data from cache |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
=head2 I<put_to_cache($data)> |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
Put this classes data into the cache |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
=head2 I<delete_cache> |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
Delete the cache entry for this class |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
=head1 REQUIRES |
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
=over 4 |
89
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
=item * L<Mail::BIMI::Prelude|Mail::BIMI::Prelude> |
91
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
=item * L<Moose|Moose> |
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
=back |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
=head1 AUTHOR |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
Marc Bradshaw <marc@marcbradshaw.net> |
99
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
=head1 COPYRIGHT AND LICENSE |
101
|
|
|
|
|
|
|
|
102
|
|
|
|
|
|
|
This software is copyright (c) 2020 by Marc Bradshaw. |
103
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
This is free software; you can redistribute it and/or modify it under |
105
|
|
|
|
|
|
|
the same terms as the Perl 5 programming language system itself. |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
=cut |