##Client:

my $byCodeAndX = sub {
  ....
};

my $obj = new Obj( sortCallback => $byCodeAndX )