[gitmo/MooseX-Role-Parameterized.git] / t / 001-parameters.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;

use MooseX::Role::Parameterized::Parameters;

my $p = MooseX::Role::Parameterized::Parameters->new;
can_ok($p => 'meta');

do {
    package MyRole::NoParameters;
    use MooseX::Role::Parameterized;
};

my $parameter_class = MyRole::NoParameters->meta->parameter_class;
ok($parameter_class);
Commit	Line	Data
665e848b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
69d1f098	4	use Test::More tests => 2;
	5	use Test::Exception;
	6
665e848b	7	use MooseX::Role::Parameterized::Parameters;
	8
	9	my $p = MooseX::Role::Parameterized::Parameters->new;
	10	can_ok($p => 'meta');
	11
69d1f098	12	do {
	13	package MyRole::NoParameters;
	14	use MooseX::Role::Parameterized;
	15	};
	16
	17	my $parameter_class = MyRole::NoParameters->meta->parameter_class;
	18	ok($parameter_class);
	19