Commit | Line | Data |
15d0d014 |
1 | use strict; |
2 | use warnings; |
faaf0544 |
3 | use Test::More 0.88; |
15d0d014 |
4 | |
5 | sub class { $_[0]->(); } |
6 | |
7 | sub handle_class { |
9026391e |
8 | my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_; |
15d0d014 |
9 | return (sub (&) { shift; }, undef, "package ${name};"); |
10 | } |
11 | |
12 | use Devel::Declare; |
13 | use Devel::Declare 'class' => [ DECLARE_PACKAGE, \&handle_class ]; |
14 | |
15 | my $packname; |
16 | |
17 | class Foo::Bar { |
18 | $packname = __PACKAGE__; |
19 | }; |
20 | |
21 | is($packname, 'Foo::Bar', 'Package saved ok'); |
22 | is(__PACKAGE__, 'main', 'Package scoped correctly'); |
b52072dc |
23 | |
24 | done_testing; |