1#!/usr/bin/perl -w
2
3use strict;
4use Test::More tests => 3;
5
6{
7    package MyParent;
8    sub exclaim { "I CAN HAS PERL?" }
9}
10
11{
12    package Child;
13    use parent -norequire, 'MyParent';
14}
15
16my $obj = {};
17bless $obj, 'Child';
18isa_ok $obj, 'MyParent', 'Inheritance';
19can_ok $obj, 'exclaim';
20is $obj->exclaim, "I CAN HAS PERL?", 'Inheritance is set up correctly';
21
22