File Coverage

blib/lib/Sort/MergeSort/Iterator.pm

Criterion	Covered	Total	%
statement	61	94	64.8
branch	13	18	72.2
condition	5	6	83.3
subroutine	14	37	37.8
pod	7	20	35.0
total	100	175	57.1

package Sort::MergeSort::Iterator;

# $Id: Iterator.pm 13859 2009-07-24 08:02:37Z david $

use strict;
use warnings;
use Carp;
use Carp qw(confess);
our $VERSION = '0.01';
use Symbol;

##############################################################################
# Constructor.
##############################################################################

sub new {
	my ( $class, $code, $destroy ) = @_;
	croak qq{Argument "$code" is not a code reference} if ref $code ne 'CODE';
	croak qq{Argument "$destroy" is not a code reference}
		if $destroy && ref $destroy ne 'CODE';

	my $self = bless gensym, $class;
	${*$self}{code} = $code;
	${*$self}{destroy} = $destroy;
	${*$self}{count} = 0;

	tie(*$self, $class, $self);

	return $self;
}

DESTROY {
	my $self = shift;
	my $dest = ${*$self}{destroy} or return;
	$dest->();
}

##############################################################################
# Instance Methods.
##############################################################################

sub next {
	my $self = shift;
	${*$self}{curr} = exists ${*$self}{peek}
		? delete ${*$self}{peek}
		: ${*$self}{code}->();
	${*$self}{count}++ if defined ${*$self}{curr};
	return ${*$self}{curr};
}

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

sub current {
	my $self = shift;
	${*$self}{curr};
}

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

sub peek {
	my $self = shift;
	return ${*$self}{peek} ||= ${*$self}{code}->();
}

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

sub position {
	my $self = shift;
	${*$self}{count};
}

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

sub all {
	my $self = shift;
	my @items;
	push @items, $self->next while $self->peek;
	return wantarray ? @items : \@items;
}

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

sub do {
	my ( $self, $code ) = @_;
	while ( local $_ = $self->next ) {
		return unless $code->($_);
	}
}

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

sub close
{
	my $self = shift;
	my $dest = ${*$self}{destroy} or return;
	$dest->();
	delete ${*$self}{destroy};
	${*self}{code} = sub { die "attempt to read a closed iterator" };
}

*CLOSE = \&close;

sub sysread { die "not implemented" }
sub open { die "not implemented" }
sub syswrite { die "not implemented" }
sub ungetc { die "not implemented" }
sub getc { die "not implemented" }
sub ungetline { die "not implemented" }
sub xungetc { die "not implemented" }
sub print { die "not implemented" }
sub fileno { die "not implemented" }
sub PRINTF { die "not implemented" }
sub PRINT { die "not implemented" }
sub READ { confess "not implemented" }
sub read { die "not implemented" }
sub WRITE { die "not implemented" }
sub TELL { die "not implemented" }
sub SEEK { die "not implemented" }
sub OPEN { die "not implemented" }
sub GETC { die "not implemented" }
sub BINMODE { }

sub eof
{
	my $self = shift;
	return ! defined $self->peek;
}

*EOF = \&eof;

sub getlines
{
	my $self = shift;
	die unless wantarray;
	return ($self->all());
}

sub TIEHANDLE
{
	my ($class, $self) = @_;
	return $self;
}

*READLINE = \&next;

1;
__END__