t/lib/Bar.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package Bar;
use strict;
use warnings;

use Exporter::Lexical ();

our $imported;

my $import = Exporter::Lexical::build_exporter({
    -exports => [ qw(bar) ],
});

sub import {
    $imported = 1;
    goto $import;
}

sub bar { "BAR" }

1;