Commit | Line | Data |
---|---|---|
33e2e9de | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::More; |
53a4d826 | 7 | use Test::Exception; |
33e2e9de | 8 | |
53a4d826 | 9 | lives_ok { |
33e2e9de | 10 | package MooseX::Attribute::Test; |
11 | use Moose::Role; | |
53a4d826 | 12 | } 'creating custom attribute "metarole" is okay'; |
33e2e9de | 13 | |
53a4d826 | 14 | lives_ok { |
33e2e9de | 15 | package Moose::Meta::Attribute::Custom::Test; |
16 | use Moose; | |
d03bd989 | 17 | |
33e2e9de | 18 | extends 'Moose::Meta::Attribute'; |
19 | with 'MooseX::Attribute::Test'; | |
53a4d826 | 20 | } 'custom attribute metaclass extending role is okay'; |
a28e50e4 | 21 | |
22 | done_testing; |