File Coverage

blib/lib/Data/TableReader/Iterator.pm

Criterion	Covered	Total	%
statement	23	27	85.1
branch	1	2	50.0
condition	1	3	33.3
subroutine	10	14	71.4
pod	7	7	100.0
total	42	53	79.2

package Data::TableReader::Iterator;
use strict;
use warnings;
use Try::Tiny;
use Carp;
use Scalar::Util 'refaddr';

# ABSTRACT: Base class for iterators (blessed coderefs)
our $VERSION = '0.021'; # VERSION


our %_iterator_fields;
sub new {
	my ($class, $sub, $fields)= @_;
	ref $sub eq 'CODE' and ref $fields eq 'HASH'
		or croak "Expected new(CODEREF, HASHREF)";
	$_iterator_fields{refaddr $sub}= $fields;
	return bless $sub, $class;
}

sub _fields {
	$_iterator_fields{refaddr shift};
}

sub DESTROY {
	delete $_iterator_fields{refaddr shift};
}

sub progress {
	undef;
}

sub row {
	croak "Unimplemented";
}

sub dataset_idx {
	0
}

sub tell {
	undef;
}

sub seek {
	croak "Unimplemented";
}

sub next_dataset {
	undef;
}

1;

__END__