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