Select Code to Download

    my $diff = Algorithm::Diff->new( [<IN1>], [<IN2>] );

    sub cvIterToList {
        my $cvIter = shift( @_ );
...
        }
        return \@list;
    }

    my $diff = Algorithm::Diff->new(
        cvIterToList($iter), [<IN>] );

    cvIterToList( sub { $obj->Next() } )