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