File Coverage

blib/lib/ObjectDB/Iterator.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	20	40.0

package ObjectDB::Iterator;

use strict;
use warnings;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {};
    bless $self, $class;

    $self->{walker} = $params{walker};

    return $self;
}

sub next {
    my $self = shift;

    return $self->{walker}->($self);
}

1;