view release on metacpan or  search on metacpan

lib/AC/MrGamoo/Iter.pm  view on Meta::CPAN

# -*- perl -*-

# Copyright (c) 2009 AdCopy
# Author: Jeff Weisberg
# Created: 2009-Nov-10 11:48 (EST)
# Function: iterator for reducing
#
# $Id: Iter.pm,v 1.1 2010/11/01 18:41:42 jaw Exp $

package AC::MrGamoo::Iter;
use strict;

sub key {
    my $me = shift;

    # move ahead to 1st row of next key
    while( defined(my $r = $me->_nextrow()) ){
        next if $r->[0] eq $me->{key};

        $me->_putback($r);
        $me->{key} = $r->[0];
        return $r->[0];
    }

    return;	# eof
}

sub next {

    my($data, $end) = _next(@_);
    if( wantarray ){
        return ($data, $end);
    }else{
        return $data;
    }
}

sub _next {
    my $me = shift;

    my $r = $me->_nextrow();
    return (undef, 1) unless $r;	# eof

    return $r->[1] if $me->{key} eq $r->[0];

    # end of key
    $me->_putback($r);
    return (undef, 1);
}

sub foreach {
    my $me  = shift;
    my $sub = shift;

    while(1){
        my($r,$end) = $me->next();
        last if $end;
        $sub->($r);
    }
}

################################################################

sub _putback {
    my $me = shift;
    my $r  = shift;

    $me->{buf} = $r;
}


1;