use LaTeX::TikZ::Tools;
-use Any::Moose;
+use Mouse;
=head1 RELATIONSHIPS
join ' ', map $_->path(@_), $set->kids;
}
+=head2 C<begin>
+
+=cut
+
+sub begin {
+ my $set = shift;
+
+ my @kids = $set->kids;
+ return undef unless @kids;
+
+ $kids[0]->begin;
+}
+
+=head2 C<end>
+
+=cut
+
+sub end {
+ my $set = shift;
+
+ my @kids = $set->kids;
+ return undef unless @kids;
+
+ $kids[-1]->end;
+}
+
LaTeX::TikZ::Interface->register(
union => sub {
shift;
+ __PACKAGE__->new(kids => \@_);
+ },
+ path => sub {
+ shift;
+
__PACKAGE__->new(kids => \@_);
},
);
=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.