blob: 1de5ea4cc570687dfbfb7bb4999363d6832fbf29 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
package Foo;
sub new { bless {}, shift }
sub foo { 'Foo' }
sub bar { 'Foo' }
sub baz { ref(shift) }
package Foo::Moose;
use Moose;
use MooseX::NonMoose;
extends_nonmoose 'Foo';
sub bar { 'Foo::Moose' }
package main;
my $foo_moose = Foo::Moose->new;
is $foo_moose->foo, 'Foo', 'Foo::Moose->foo';
is $foo_moose->bar, 'Foo::Moose', 'Foo::Moose->bar';
is $foo_moose->baz, 'Foo::Moose', 'Foo::Moose->baz';
|
