Add a backward compatible Tikz->path keyword

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Union.pm

diff --git a/lib/LaTeX/TikZ/Set/Union.pm b/lib/LaTeX/TikZ/Set/Union.pm
index 13b5dc64c0623fb0d590eacce9de636f231ec816..b13eb473c74000d2244c9cf9f4914d80163e63cb 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Union.pm
+++ b/lib/LaTeX/TikZ/Set/Union.pm
@@ -20,7 +20,7 @@ use LaTeX::TikZ::Functor;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
@@ -108,6 +108,11 @@ LaTeX::TikZ::Interface->register(
  union => sub {
   shift;
 
+  __PACKAGE__->new(kids => \@_);
+ },
+ path  => sub {
+  shift;
+
   __PACKAGE__->new(kids => \@_);
  },
 );