/usr/local/CPAN/Pipe/Pipe/Tube/Uniq.pm

• package Pipe::Tube::Uniq
  • run
• EOF

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

use base 'Pipe::Tube';

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;