X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2FLaTeX%2FTikZ%2FInterface.pm;h=93b00435e27c267bce9be63cc903e51553f50219;hb=0f9d7c1a2d11bc7001fe450cb2086e67c13a39e9;hp=0e902f576e45efdb95cbda3bea1f312a249fda03;hpb=1918fdf5100058cd6a4281bc8b04ec8977841e5e;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Interface.pm b/lib/LaTeX/TikZ/Interface.pm index 0e902f5..93b0043 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 @@ -67,6 +78,7 @@ sub load { require LaTeX::TikZ::Set::Rectangle; # rectangle require LaTeX::TikZ::Set::Circle; # circle require LaTeX::TikZ::Set::Arc; # arc + require LaTeX::TikZ::Set::Arrow; # arrow require LaTeX::TikZ::Mod::Raw; # raw_mod @@ -76,8 +88,13 @@ 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 SEE ALSO + +L. + =head1 AUTHOR Vincent Pit, C<< >>, L.