File Coverage

blib/lib/Pipe/Tube/Uniq.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	29	30	96.6

package Pipe::Tube::Uniq;
use strict;
use warnings;
use 5.006;

use base 'Pipe::Tube';

our $VERSION = '0.05';

sub run {
    my ($self, @input) = @_;

    my @result;
    foreach my $v (@input) {
        next if defined $self->{last} and $self->{last} eq $v;

        $self->{last} = $v;
        push @result, $v;
    }
    return @result;
}


1;