From: Vincent Pit <vince@profvince.com>
Date: Wed, 22 Apr 2015 15:12:58 +0000 (-0300)
Subject: Add a backward compatible Tikz->path keyword
X-Git-Tag: v0.03~9
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=58dbdba6c44235e491e03288cb9a4ad4223b2cdd;p=perl%2Fmodules%2FLaTeX-TikZ.git

Add a backward compatible Tikz->path keyword

It is now equivalent to Tikz->union.
---

diff --git a/lib/LaTeX/TikZ/Set/Union.pm b/lib/LaTeX/TikZ/Set/Union.pm
index 1160e6b..b13eb47 100644
--- a/lib/LaTeX/TikZ/Set/Union.pm
+++ b/lib/LaTeX/TikZ/Set/Union.pm
@@ -108,6 +108,11 @@ LaTeX::TikZ::Interface->register(
  union => sub {
   shift;
 
+  __PACKAGE__->new(kids => \@_);
+ },
+ path  => sub {
+  shift;
+
   __PACKAGE__->new(kids => \@_);
  },
 );
diff --git a/t/01-api.t b/t/01-api.t
index 6e96183..36e9166 100644
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5 + 23 + 12;
+use Test::More tests => 5 + 24 + 12;
 
 use LaTeX::TikZ;
 
@@ -31,7 +31,7 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
 my @methods = qw<
  formatter functor
  raw
- union seq chain join
+ union path seq chain join
  point line polyline closed_polyline rectangle circle arc arrow
  raw_mod
  clip layer