File Coverage

blib/lib/Iterator/Flex/Role/Prev/Closure.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Iterator::Flex::Role::Prev::Closure;
2              
3             # ABSTRACT: Implement prev as a closure stored in the registry
4              
5 33     33   264001 use v5.28;
  33         209  
6 33     33   305 use strict;
  33         68  
  33         968  
7 33     33   213 use warnings;
  33         67  
  33         2621  
8              
9             our $VERSION = '0.33';
10              
11 33     33   750 use Iterator::Flex::Utils qw( :default REG_ITERATOR REG_ITER_PREV );
  33         107  
  33         4703  
12 33     33   851 use Role::Tiny;
  33         8111  
  33         191  
13 33     33   10175 use experimental 'signatures';
  33         68  
  33         209  
14              
15 33     33   7728 use namespace::clean;
  33         18044  
  33         258  
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27 360     360 1 56185 sub prev ( $self ) {
  360         565  
  360         476  
28 360         1345 $REGISTRY{ refaddr $self }[REG_ITERATOR][REG_ITER_PREV]->( $self );
29             }
30             *__prev__ = \&prev;
31              
32             1;
33              
34             #
35             # This file is part of Iterator-Flex
36             #
37             # This software is Copyright (c) 2018 by Smithsonian Astrophysical Observatory.
38             #
39             # This is free software, licensed under:
40             #
41             # The GNU General Public License, Version 3, June 2007
42             #
43              
44             __END__