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;