blob: 7f1f97fd296e3f9554658023c095d5990b6684c5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
{
package Foo;
our $VERSION = '0.02';
sub new { bless {}, shift }
}
{
package Bar;
use Moose;
use MooseX::NonMoose;
::lives_ok { extends 'Foo' => { -version => '0.02' } }
"specifying arguments to superclasses doesn't break";
}
done_testing;
|