t/build_exporter.t


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

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';

sub bar { 'bar' }

is(bar(), "bar");
{
    use Bar;
    is(bar(), "BAR");
    is($Bar::imported, 1);
}
is(bar(), "bar");

done_testing;