sub import($pkg : ARRAY $export=undef, ARRAY $ok=undef, HASH $tags=undef) {

##</code><code>##

ARRAY $export //= undef

##</code><code>##

    my $from_pkg=caller.package;

##</code><code>##

    my $from_pag = caller.MY.package;

##</code><code>##

sub myimport($exp_from : *@symbols=() : *@options=()) {

##</code><code>##

sub myimport($exp_from         # expect a scalar as arg 1
             :                 # then expect a colon
             *@symbols=()      # then flatten any args
             :                 # until another colon
             *@options=()      # then flatten any more args
            ) {

##</code><code>##

    if(defined $export) {
        @Exporter::From::EXPORT = $export;
    }

    if(defined $ok) {
        @Exporter::From::EXPORT_OK = $ok;
    }

    if(defined $tags) {
        %Exporter::From::EXPORT_TAGS = $tags;
    }
}