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   369575 use v5.28;
  15         62  
6 15     15   96 use strict;
  15         41  
  15         511  
7 15     15   72 use warnings;
  15         29  
  15         1217  
8              
9             our $VERSION = '0.33';
10              
11 15     15   613 use Iterator::Flex::Utils qw( :default REG_GENERAL REG_GP_INPUT_EXHAUSTION );
  15         35  
  15         2398  
12              
13 15     15   843 use Role::Tiny;
  15         8262  
  15         103  
14 15     15   4163 use experimental 'signatures';
  15         35  
  15         96  
15              
16 15     15   3155 use namespace::clean;
  15         19853  
  15         137  
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__