use Test::More 'no_plan';

    use Regexp::AllMatches;

    my $str = 'abc';
    my $m1 = Regexp::AllMatches::->new($str => qr/.+/);

    is($m1->next, 'abc');
    my $m2 = $m1->clone;
    is($m1->next, 'ab');
    is_deeply([ $str =~ /./g ], [qw/ a b c /]);
    is($m1->next, 'a');
    is($m2->next, 'ab');

    __END__
    ok 1
    ok 2
    ok 3
    ok 4
    ok 5
    1..5