X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FUnion.pm;h=13b5dc64c0623fb0d590eacce9de636f231ec816;hb=6832c809e7591e1c3e2809654f814c298d28d2ef;hp=2648d3d77223810556025bdb637b234fca8ff056;hpb=b8f42942311854cb0ef8a3e34c0145846639cd2e;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Set/Union.pm b/lib/LaTeX/TikZ/Set/Union.pm index 2648d3d..13b5dc6 100644 --- a/lib/LaTeX/TikZ/Set/Union.pm +++ b/lib/LaTeX/TikZ/Set/Union.pm @@ -24,13 +24,13 @@ use Any::Moose; =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< LaTeX::TikZ::Set::Path - LaTeX::TikZ::Set::Mutable + LaTeX::TikZ::Set::Container >; =head1 ATTRIBUTES @@ -78,6 +78,32 @@ sub path { join ' ', map $_->path(@_), $set->kids; } +=head2 C + +=cut + +sub begin { + my $set = shift; + + my @kids = $set->kids; + return undef unless @kids; + + $kids[0]->begin; +} + +=head2 C + +=cut + +sub end { + my $set = shift; + + my @kids = $set->kids; + return undef unless @kids; + + $kids[-1]->end; +} + LaTeX::TikZ::Interface->register( union => sub { shift; @@ -97,7 +123,7 @@ __PACKAGE__->meta->make_immutable; =head1 SEE ALSO -L, L, L. +L, L, L. =head1 AUTHOR