package Sortable;
use overload 'cmp' => \&_cmp;

sub _cmp {
  $_[0]->cmp($_[1]);
}

1;