#!/usr/bin/perl -w

use strict;
use Test::More tests => 3;

{
    package MyParent;
    sub exclaim { "I CAN HAS PERL?" }
}

{
    package Child;
    use parent -norequire, 'MyParent';
}

my $obj = {};
bless $obj, 'Child';
isa_ok $obj, 'MyParent', 'Inheritance';
can_ok $obj, 'exclaim';
is $obj->exclaim, "I CAN HAS PERL?", 'Inheritance is set up correctly';