Commit | Line | Data |
---|---|---|
b746972e | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Test::More; | |
5 | ||
e94260da | 6 | use Package::Stash; |
b746972e | 7 | |
8 | { | |
9 | package Foo; | |
10 | } | |
11 | ||
12 | { | |
13 | package Bar; | |
14 | } | |
15 | ||
e94260da | 16 | my $stash = Package::Stash->new('Foo'); |
b746972e | 17 | my @ISA = ('Bar'); |
dc378b60 | 18 | @{$stash->get_or_add_package_symbol('@ISA')} = @ISA; |
b746972e | 19 | isa_ok('Foo', 'Bar'); |
20 | ||
21 | done_testing; |