Select Code to Download

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

ARRAY $export //= undef

    my $from_pkg=caller.package;

    my $from_pag = caller.MY.package;

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

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

    if(defined $export) {
        @Exporter::From::EXPORT = $export;
...
        %Exporter::From::EXPORT_TAGS = $tags;
    }
}