From b746972e03adae326b05d48d28107e18b0567fe9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 12 May 2010 12:33:44 -0500 Subject: what is this i don't even --- t/005-isa.t | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 t/005-isa.t (limited to 't/005-isa.t') diff --git a/t/005-isa.t b/t/005-isa.t new file mode 100644 index 0000000..d21c7a7 --- /dev/null +++ b/t/005-isa.t @@ -0,0 +1,21 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Stash::Manip; + +{ + package Foo; +} + +{ + package Bar; +} + +my $stash = Stash::Manip->new('Foo'); +my @ISA = ('Bar'); +@{$stash->get_package_symbol('@ISA')} = @ISA; +isa_ok('Foo', 'Bar'); + +done_testing; -- cgit v1.2.3-54-g00ecf