gistfile1.txt

use FindBin::libs;
use Benchmark qw/cmpthese/;

use Array::Diff 0.05;
use Algorithm::Diff;
use Algorithm::Diff::XS;

my $d  = Array::Diff->new({ diff_class => 'Algorithm::Diff' });
my $xs = Array::Diff->new({ diff_class => 'Algorithm::Diff::XS' });

cmpthese(
    100000,
    {
        'Algorithm::Diff'     => sub { $d->diff(  [qw/a b d/], [qw/b a d c/] ) },
        'Algorithm::Diff::XS' => sub { $xs->diff( [qw/a b d/], [qw/b a d c/] ) },
    },
);