# no one-line block for first map with -ce -cbl=map,sort,grep
@sorted = map {
$_->[0]
-} sort {
+ } sort {
$a->[1] <=> $b->[1] or $a->[0] cmp $b->[0]
-} map {
+ } map {
[ $_, length($_) ]
-} @unsorted;
+ } @unsorted;
#14...........
},
}
-method get_value() {
+method get_value () {
}