File Coverage

blib/lib/Data/ObjectDriver/Iterator.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	4	0.0
condition	0	3	0.0
subroutine	2	6	33.3
pod	0	3	0.0
total	8	34	23.5

package Data::ObjectDriver::Iterator;

use strict;
use warnings;

my %Iterators = ();

sub new {
    my $class = shift;
    my( $each, $end ) = @_;
    bless $each, $class;
    if ($end) {
        $Iterators{ $each }{ end } = $end;
    }
    return $each;
}

sub next {
    return shift->();
}

sub end {
    my $each = shift;
    my $hash = delete $Iterators{ $each };
    $hash->{ end }->() if $hash and ref $hash->{ end } eq 'CODE';
}

sub DESTROY {
    my $iter = shift;
#    use YAML; warn Dump \%Iterators;
    $iter->end();
}

1;