| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Role::TinyCommons::Collection::GetItemByKey; |
|
2
|
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
244911
|
use Role::Tiny; |
|
|
1
|
|
|
|
|
4675
|
|
|
|
1
|
|
|
|
|
6
|
|
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY |
|
6
|
|
|
|
|
|
|
our $DATE = '2024-01-16'; # DATE |
|
7
|
|
|
|
|
|
|
our $DIST = 'Role-TinyCommons-Collection'; # DIST |
|
8
|
|
|
|
|
|
|
our $VERSION = '0.010'; # VERSION |
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
### required methods |
|
11
|
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
requires 'get_item_at_key'; |
|
13
|
|
|
|
|
|
|
requires 'has_item_at_key'; |
|
14
|
|
|
|
|
|
|
requires 'get_all_keys'; |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
### provides |
|
17
|
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
# alias for has_item_at_key |
|
19
|
0
|
|
|
0
|
1
|
|
sub has_key { my $self = shift; $self->has_item_at_key(@_) } |
|
|
0
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |
|
22
|
|
|
|
|
|
|
# ABSTRACT: Locating an item by a key |
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__END__ |