package YuGiOh::Filter;
use Data::Dumper;
use strict;


#THIS FILTER SHOULD ONLY BE USED WHEN CHAINED WITH THE BLOCK FILTER THROUGH THE STACKABLE FILTER

sub new {
   my $self = [];
   return bless($self,'YuGiOh::Filter');
}

sub get {
   my $self = shift;

   $self->get_one_start(@_); #Append needed/available info

   my @list;
   while(my $record = $self->parse()){
      push(@list,$record);
   }

   return \@list;
}


sub get_one_start {
   push(@{$_[0]},@{$_[1]});
}


sub get_one {
   my $self = shift;

   my $record = $self->parse();

   return $record ? [$record] : [];
}


sub parse {
   my $self = shift;

   my $txt = shift(@$self);

   return [substr($txt,0,3,''),$txt];
}


sub put {

   #warn("In the custom put");

   my $tmp = [map({ sprintf('%03d',$_->[0]).$_->[1] } @{$_[1]})];

   #print Dumper($tmp);

   return $tmp;
}

sub get_pending {
   return [ @{$_[0]} ];
}


1;