Select Code to Download

Select or download this
```
module Exporter;
```

use strict;
use warnings;
use warnings::register;    #assuming this continues to exist...

Select or download this

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

Select or download this
```
ARRAY $export=undef
```
Select or download this
```
ARRAY $export //= undef
```
Select or download this
```
    my $from_pkg=caller.package;
```
Select or download this
```
    my $from_pag = caller.MY.package;
```

Select or download this

    pkg_alias($from_pkg, "Exporter::From");
    &Exporter::From::import := &myimport;

Select or download this

sub pkg_alias($original, $new) {
    #Any sufficiently encapsulated hack...
...

    %{"${original}::"} := %{"${new}::"};    #XXX will this actually wo
+rk?
}

Select or download this

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

Select or download this

    my $exp_to=caller.package;    #is this how caller is used?

...

    #defaults
    @symbols //= @Exporter::From::EXPORT;

Select or download this
```
    $foo ||= 'bar';
```

Select or download this

    $foo //= $bar // $baz // 'nothing to see here, folks';

Select or download this

    #expand tags to their values
    @symbols=map {
...
            @{%Exporter::From::EXPORT_TAGS}{$_}} ::
            $_
    } @symbols;

Select or download this

    for(@symbols) {
        #handle version numbers
...
            $exp_from.require_version($_);
            next;
        }

Select or download this

        #handle renamed exports
        my($to, $from)=$_.ref eq 'PAIR' ? ($_.left, $_.right) : ($_, $
+_);

Select or download this

        for($to, $from) {
            #make sure it has some sort of sigil
            $_='&' _ $_ unless m'^[$@%&]';
        }

Select or download this

        warnings::warnif("$from exported from $exp_from conflicts with
+ existing $to at $(caller.file) line $(caller.line).\n")
            if defined %Exporter::To::{$to};

Select or download this

        %Exporter::To::{$to}=%Exporter::From::{$from};
    }

Select or download this

    for(@options) {
        my($sign, $name, $value)=/[+-]([[\w]&&[^\d]]\w+)(?:=(.*))?/s;
...
        }
    }
}

Select or download this

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

Select or download this

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