1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
use strict;
use warnings;
use Test::More;
{
package My::Exporter;
use Test::Stream::Exporter;
use Test::More;
export a => sub { 'a' };
default_export b => sub { 'b' };
export 'c';
sub c { 'c' }
default_export x => sub { 'x' };
our $export = "here";
$main::export::xxx = 'here';
export '$export' => \$export;
Test::Stream::Exporter->cleanup;
is($export, 'here', "still have an \$export var");
is($main::export::xxx, 'here', "still have an \$export::* var");
ok(!__PACKAGE__->can($_), "removed $_\()") for qw/export default_export exports default_exports/;
}
My::Exporter->import( '!x' );
can_ok(__PACKAGE__, qw/b/);
ok(!__PACKAGE__->can($_), "did not import $_\()") for qw/a c x/;
My::Exporter->import(qw/a c/);
can_ok(__PACKAGE__, qw/a b c/);
ok(!__PACKAGE__->can($_), "did not import $_\()") for qw/x/;
My::Exporter->import();
can_ok(__PACKAGE__, qw/a b c x/);
is(__PACKAGE__->$_(), $_, "$_() eq '$_', Function is as expected") for qw/a b c x/;
ok(! defined $::export, "no export scalar");
My::Exporter->import('$export');
is($::export, 'here', "imported export scalar");
use Test::Stream::Exporter qw/export_meta/;
my $meta = export_meta('My::Exporter');
isa_ok($meta, 'Test::Stream::Exporter::Meta');
is_deeply(
[sort $meta->default],
[sort qw/b x/],
"Got default list"
);
is_deeply(
[sort $meta->all],
[sort qw/a b c x $export/],
"Got all list"
);
is_deeply(
$meta->exports,
{
a => __PACKAGE__->can('a') || undef,
b => __PACKAGE__->can('b') || undef,
c => __PACKAGE__->can('c') || undef,
x => __PACKAGE__->can('x') || undef,
'$export' => \$My::Exporter::export,
},
"Exports are what we expect"
);
# Make sure export_to_level us supported
BEGIN {
package A;
use Test::Stream::Exporter qw/import export_to_level exports/;
exports qw/foo/;
sub foo { 'foo' }
###############
package B;
sub do_it {
my $class = shift;
my ($num) = @_;
$num ||= 1;
A->export_to_level($num, $class, 'foo');
}
##############
package C;
sub do_it {
B->do_it(2);
}
}
{
package m1;
BEGIN { B->do_it }
}
{
package m2;
BEGIN{ C->do_it };
}
can_ok('m1', 'foo');
can_ok('m2', 'foo');
done_testing;
|
