blob: c02438c856856e38ada0763617d78517964619cc (
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
26
27
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
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 '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');
done_testing;
|
