Creating an instance of a class extended from another in the same package fails.

032-package-w-extends.t

#!perl

use strict;
use warnings;

use Test::More;

{
    package Foo;

    use strict;
    use warnings;
    use mop;

    class Bar {
        has $baz;
    }

    class Baz extends Bar {
        has $baz2;
    }
}

my $foo = Foo::Bar->new;
ok( $foo->isa( 'Foo::Bar' ), '... the object is from class Foo::Bar' );

my $foo_baz = Foo::Baz->new;
ok( $foo_baz->isa( 'Foo::Baz' ), '... the object is from class Foo::Baz' );

done_testing;

Fails with the error:

Could not find new in Foo::Baz at /home/prakash/git/perl/p5-mop-redux/blib/lib/mop/internals/mro.pm line 137.