File Coverage

blib/lib/Iterator/Flex/Role/Exhaustion/ImportedReturn.pm
Criterion Covered Total %
statement 20 24 83.3
branch n/a
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 28 33 84.8


line stmt bran cond sub pod time code
1             package Iterator::Flex::Role::Exhaustion::ImportedReturn;
2              
3             # ABSTRACT: Imported iterator returns a sentinel
4              
5 15     15   177985 use v5.28;
  15         45  
6 15     15   66 use strict;
  15         21  
  15         290  
7 15     15   44 use warnings;
  15         24  
  15         965  
8              
9             our $VERSION = '0.34';
10              
11 15     15   435 use Iterator::Flex::Utils qw( :default REG_GENERAL REG_GP_INPUT_EXHAUSTION );
  15         43  
  15         1688  
12              
13 15     15   465 use Role::Tiny;
  15         4468  
  15         89  
14 15     15   2867 use experimental 'signatures';
  15         26  
  15         64  
15              
16 15     15   1991 use namespace::clean;
  15         11129  
  15         88  
17              
18              
19              
20              
21              
22              
23              
24              
25              
26 0     0 1   sub imported_sentinel ( $self ) {
  0            
  0            
27 0           return $REGISTRY{ refaddr $self }[REG_GENERAL][REG_GP_INPUT_EXHAUSTION][1];
28             }
29              
30             1;
31              
32             #
33             # This file is part of Iterator-Flex
34             #
35             # This software is Copyright (c) 2018 by Smithsonian Astrophysical Observatory.
36             #
37             # This is free software, licensed under:
38             #
39             # The GNU General Public License, Version 3, June 2007
40             #
41              
42             __END__