package Demo2;

sub import {
    #${[caller]->[0].'::'}{$_} = ${__PACKAGE__."::"}{$_}
    *{[caller]->[0].'::'.$_} = \&{__PACKAGE__."::$_"}
        foreach grep { not /^(ISA|isa|BEGIN|import|Dumper)$/ } 
                      keys %{__PACKAGE__."::"};
}

use constant { 
    SUCCESS                          => 0,
};

1;