File Coverage

blib/lib/Pipe/Tube/For.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 29 31 93.5


line stmt bran cond sub pod time code
1             package Pipe::Tube::For;
2 1     1   7 use strict;
  1         2  
  1         31  
3 1     1   4 use warnings;
  1         11  
  1         34  
4 1     1   15 use 5.006;
  1         4  
5              
6 1     1   6 use base 'Pipe::Tube';
  1         2  
  1         256  
7              
8             our $VERSION = '0.06';
9              
10             sub init {
11 4     4 0 10 my ($self, @values) = @_;
12 4         16 $self->logger("Receiving values for for loop: " . join "|", @values);
13 4         19 $self->{data} = \@values;
14 4         11 return $self;
15             }
16              
17             sub run {
18 13     13 0 18 my ($self) = @_;
19 13         18 $self->logger("Current values in for loop: " . join "|", @{ $self->{data} });
  13         43  
20 13 100       18 return @{ $self->{data}} ? shift @{ $self->{data} } : ();
  13         31  
  9         20  
21             }
22              
23             1;
24