X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FInterface.pm;h=ef78fa8b1644abb7765861bb95699028f21d0a05;hb=e6c6fbca8df4f8df7bbce2eb98dd260ed51d9141;hp=20e26fdc66fa627929bbb123fa42eb9e58b178c6;hpb=92f8566cc72a8bfded5c55589030ddab5f215bd6;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Interface.pm b/lib/LaTeX/TikZ/Interface.pm index 20e26fd..ef78fa8 100644 --- a/lib/LaTeX/TikZ/Interface.pm +++ b/lib/LaTeX/TikZ/Interface.pm @@ -17,13 +17,17 @@ our $VERSION = '0.01'; use Sub::Name (); -sub import { - shift; +=head1 METHODS - register(@_); -} +=head2 C<< register $keyword => $code >> + +Registers C<$code> to be available with C<< Tikz->$keyword >>. + +=cut sub register { + shift; + while (@_ >= 2) { my ($name, $code) = splice @_, 0, 2; @@ -53,8 +57,15 @@ sub register { return; } +=head2 C + +Load all the modules of the L official suite that register a keyword in the interface. + +=cut + sub load { require LaTeX::TikZ::Formatter; # formatter + require LaTeX::TikZ::Functor; # functor require LaTeX::TikZ::Set::Raw; # raw @@ -77,6 +88,7 @@ sub load { require LaTeX::TikZ::Mod::Width; # width require LaTeX::TikZ::Mod::Color; # color require LaTeX::TikZ::Mod::Fill; # fill + require LaTeX::TikZ::Mod::Pattern; # pattern } =head1 AUTHOR