-#!/usr/bin/perl
-
use strict;
use Test::More tests => 20;
use Test::Exception;
use Class::MOP;
{
- package Base;
+ package BaseClass;
sub m1 { 1 }
sub m2 { 2 }
sub m3 { 3 }
sub m5 { 5 }
package Derived;
- use parent -norequire => qw(Base);
+ use base qw(BaseClass);
sub m1;
sub m2 ();