X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FFormatter.pm;h=58c2985d4e20fdce2fdaf69108f1e0d04685c095;hb=062ab95259610ce39ace60365b659d6113420ce7;hp=a5bda82f88ffa32c445c7f0f5157ac4389ed4e11;hpb=b8f42942311854cb0ef8a3e34c0145846639cd2e;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Formatter.pm b/lib/LaTeX/TikZ/Formatter.pm index a5bda82..58c2985 100644 --- a/lib/LaTeX/TikZ/Formatter.pm +++ b/lib/LaTeX/TikZ/Formatter.pm @@ -29,8 +29,8 @@ use LaTeX::TikZ::Interface; use LaTeX::TikZ::Tools; -use Any::Moose; -use Any::Moose 'Util::TypeConstraints'; +use Mouse; +use Mouse::Util::TypeConstraints; =head1 ATTRIBUTES @@ -212,10 +212,9 @@ my $find_mods = do { } } - my @subsets = ($set->isa('LaTeX::TikZ::Set::Sequence') - || $set->isa('LaTeX::TikZ::Set::Union')) - ? $set->kids - : (); + my @subsets = $set->does('LaTeX::TikZ::Set::Container') + ? $set->kids + : (); $find_mods_rec->($_, $layers, $others) for @subsets; }); @@ -387,7 +386,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2010 Vincent Pit, all rights reserved. +Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.