X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FSequence.pm;h=70176a1fb65c061a298a792e9b5001906cc004d5;hp=afdc313813eaf7fea53e563d86db6b898a02f75c;hb=1c53f7e28198adfb2905667acd5741f163832d7b;hpb=33b0a6db16fd5b70df1c151ff720bd07fbf34bdd diff --git a/lib/LaTeX/TikZ/Set/Sequence.pm b/lib/LaTeX/TikZ/Set/Sequence.pm index afdc313..70176a1 100644 --- a/lib/LaTeX/TikZ/Set/Sequence.pm +++ b/lib/LaTeX/TikZ/Set/Sequence.pm @@ -24,23 +24,23 @@ use LaTeX::TikZ::Functor; use Any::Moose; use Any::Moose 'Util::TypeConstraints' - => [ qw/subtype as where find_type_constraint/ ]; + => [ qw ]; =head1 RELATIONSHIPS -This class consumes the L and L roles, and as such implements the L and L methods. +This class consumes the L and L roles, and as such implements the L, L and L methods. =cut -with qw( +with qw< LaTeX::TikZ::Set - LaTeX::TikZ::Set::Mutable -); + LaTeX::TikZ::Set::Container +>; subtype 'LaTeX::TikZ::Set::Sequence::Elements' => as 'Object' => where { - $_->does('LaTeX::TikZ::Set::Op') + $_->does('LaTeX::TikZ::Set::Path') or $_->isa('LaTeX::TikZ::Set::Sequence') }; @@ -48,7 +48,7 @@ subtype 'LaTeX::TikZ::Set::Sequence::Elements' =head2 C -The L or L objects that from the sequence. +The L or L objects that from the sequence. =cut @@ -113,7 +113,7 @@ __PACKAGE__->meta->make_immutable; =head1 SEE ALSO -L, L, L. +L, L, L. =head1 AUTHOR