X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F02-autocoerce.t;h=b171715eda6d219de7714b1d731d00a0ce01a7d8;hb=3661d7849ae4636b74000e33e068493d90ed8337;hp=86d49ccacf35b50540db56b795a88733b86696c2;hpb=ecb1d1524df9ef8b8e0452d0de3efc871c3855e8;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/t/02-autocoerce.t b/t/02-autocoerce.t index 86d49cc..b171715 100644 --- a/t/02-autocoerce.t +++ b/t/02-autocoerce.t @@ -40,14 +40,12 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestX; - use Any::Moose; - use Any::Moose 'Util::TypeConstraints' => [ qw< - coerce - from - via + use Mouse; + use Mouse::Util::TypeConstraints qw< + coerce from via find_type_constraint register_type_constraint - > ]; + >; has 'id' => ( is => 'ro', @@ -83,7 +81,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestY; - use Any::Moose; + use Mouse; has 'num' => ( is => 'ro', @@ -99,7 +97,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestZ; - use Any::Moose; + use Mouse; has 'x' => ( is => 'ro', @@ -116,8 +114,8 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestW; - use Any::Moose; - use Any::Moose 'Util::TypeConstraints'; + use Mouse; + use Mouse::Util::TypeConstraints; has 'x' => ( is => 'ro', @@ -126,7 +124,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; ); coerce 'LaTeX::TikZ::TestX::Autocoerce' - => from __PACKAGE__ + => from +(__PACKAGE__) => via { $_->x }; __PACKAGE__->meta->make_immutable;