Help for this page

Select Code to Download

Select or download this

package ChainComparable;

use strict;
...
    "<<" => comparison(sub { $_[0] <  $_[1] }),
    ">>" => comparison(sub { $_[0] >  $_[1] }),
);