File Coverage

blib/lib/Table/Wave.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	6	6	100.0
condition	6	7	85.7
subroutine	5	5	100.0
pod	2	2	100.0
total	46	47	97.8

package Table::Wave;

use warnings;
use strict;
use Carp;

our $VERSION = '0.02';

sub new {
	my $class = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}

sub wave {
	my $self = shift;
	@{$self->{last}} = (('') x $#_) unless defined $self->{last};

        my @this = @_;
        my @last = @{$self->{last}};

        $this[0]='' if $this[0] eq $last[0];
	for ( 1..$#_ ) {
		$this[$_] ||= '';
		$last[$_] ||= '';
	        $this[$_]='' if $this[$_] eq $last[$_] && !$this[$_-1];
	}

	@{$self->{last}} = @_;

        return @this;
}

1;

__END__