File Coverage

blib/lib/Net/Amazon/MechanicalTurk/RowData/SubroutineRowData.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	36	88.8

package Net::Amazon::MechanicalTurk::RowData::SubroutineRowData;
use strict;
use warnings;
use Carp;
use Net::Amazon::MechanicalTurk::RowData;

our $VERSION = '1.00';

our @ISA = qw{ Net::Amazon::MechanicalTurk::RowData };

Net::Amazon::MechanicalTurk::RowData::SubroutineRowData->attributes(qw{
    sub
});

sub init {
    my $self = shift;
    $self->setAttributes(@_);
    $self->assertRequiredAttributes(qw{ sub });
}

sub each {
    my ($self, $block, @blockXArgs) = @_;
    $self->sub->(sub {
        my ($row) = @_;
        if (!$self->fieldNames) {
            if (!UNIVERSAL::isa($row, "HASH")) {
                Carp::croak("First item generated is not a hash.");
            }
            $self->fieldNames([sort keys(%$row)]);
        }
        $block->($self, $row, @blockXArgs);
    });
}

return 1;