File Coverage

blib/lib/Iterator/ToArray.pm

Criterion	Covered	Total	%
statement	36	37	97.3
branch	5	6	83.3
condition	6	12	50.0
subroutine	10	10	100.0
pod	0	3	0.0
total	57	68	83.8

package Iterator::ToArray;

use 5.008_003;
use strict;
use warnings;
use base 'Exporter';
use Scalar::Util qw(blessed reftype);

our $VERSION   = '0.04';
our @EXPORT_OK = qw/to_array/;

sub new {
    my $class    = shift;
    my $iterator = _is_iterable(shift);
    $class = ref $class || $class;

    bless { iterator => $iterator }, $class;
}

sub apply {
    my $self     = shift;
    my $code     = _is_coderef(shift);
    my $iterator = $self->{iterator};
    my @tmp;
    while ( defined( my $r = $iterator->next() ) ) {
        local $_ = $r;
        push @tmp, $code->();
    }
    wantarray ? @tmp : \@tmp;
}

sub to_array($&) {
    my ( $iterator, $code ) = @_;
    __PACKAGE__->new($iterator)->apply($code);
}

sub _is_iterable {
    my $object = shift;
    if ( $object && blessed($object) && $object->can('next') ) {
        return $object;
    }
    else {
        die "not a iterable object. object must have next method";
    }
}

sub _is_coderef {
    my $code = shift;
    if ( $code && reftype $code eq 'CODE' ) {
        return $code;
    }
    else {
        die "apply takes one code reference only";
    }
}
1;
__END__