X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FInterface.pm;h=adf63f90802f2a2d5ee44fbe5d1779ed4cf0b207;hp=fa5da48c0bd7b3e825fdcb5dfcdc6d6989789149;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/lib/LaTeX/TikZ/Interface.pm b/lib/LaTeX/TikZ/Interface.pm index fa5da48..adf63f9 100644 --- a/lib/LaTeX/TikZ/Interface.pm +++ b/lib/LaTeX/TikZ/Interface.pm @@ -17,13 +17,9 @@ our $VERSION = '0.01'; use Sub::Name (); -sub import { +sub register { shift; - register(@_); -} - -sub register { while (@_ >= 2) { my ($name, $code) = splice @_, 0, 2;