#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
package Foo;
sub new { bless {}, shift }
package Foo::Moose;
use Moose -traits => 'MooseX::NonMoose::Meta::Role::Class';
extends 'Foo';
package main;
ok(Foo::Moose->meta->has_method('new'),
'using only the metaclass trait still installs the constructor');
isa_ok(Foo::Moose->new, 'Moose::Object');
isa_ok(Foo::Moose->new, 'Foo');
my $method = Foo::Moose->meta->get_method('new');
Foo::Moose->meta->make_immutable;
is(Foo::Moose->meta->get_method('new'), $method,
'inlining doesn\'t happen when the constructor trait isn\'t used');
done_testing;