12345678910111213 package Articulate::Sortation::String;use strict;use warnings;use Moo;with 'Articulate::Role::Sortation::AllYouNeedIsCmp';sub cmp { my $self = shift; return ( $_[0] cmp $_[1] );}1;
package
Articulate::Sortation::String;
use
strict;
warnings;
Moo;
with
'Articulate::Role::Sortation::AllYouNeedIsCmp'
;
sub
cmp {
my
$self
=
shift
return
(
$_
[0] cmp
[1] );
}
1;