File Coverage

blib/lib/Data/TableReader/Iterator.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	9	12	75.0
pod	5	5	100.0
total	38	47	80.8

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.011'; # VERSION


our %_iterator_fields;
sub new {
	my ($class, $sub, $fields)= @_;
	ref $sub eq 'CODE' and ref $fields eq 'HASH'
		or die "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 tell {
	undef;
}

sub seek {
	undef;
}

sub next_dataset {
	undef;
}

1;

__END__