projects
/
gitmo/Package-Stash.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ce852a661116edc37e8464568a54712949dd2f5f
[gitmo/Package-Stash.git]
/
t
/
isa.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
use lib 't/lib';
5
use Test::More;
6
7
use Package::Stash;
8
9
{
10
package Foo;
11
}
12
13
{
14
package Bar;
15
}
16
17
my $stash = Package::Stash->new('Foo');
18
my @ISA = ('Bar');
19
@{$stash->get_or_add_symbol('@ISA')} = @ISA;
20
isa_ok('Foo', 'Bar');
21
22
done_testing;