#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
package AB::CD::EF::Z;
use applib "FindApp::Utils::Package";
#print applib->old;
my @p = (
    PACKAGE,
    PACKAGE->super,
    PACKAGE->super(2),
    PACKAGE->right(2),
    PACKAGE->left,
    PACKAGE("fred"),
    PACKAGE("aaron"),
    PACKAGE("ABC::DEF"),
    PACKAGE("ABBA"),
    PACKAGE("AB::BA"),
); 
say "SORT cmp";
say for sort {$a cmp $b } @p;
say "\nSORT <=>";
say for sort {$a <=> $b } @p;