blob: 07be5d8785b6ec7d3d2ff2f088a412841d34180f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 4;
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');
|
