X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FFunctor.pm;h=4aa811211b1d8d7fe94d5827b9b7894263a2d26b;hb=f54cadb836315572aa2c4bcb16f221da1687df7a;hp=4ccfd32eb289e17e93caa521e95718c892cc6153;hpb=70bf7dc15c8554386d2eb47fbc3d8233e5d52928;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Functor.pm b/lib/LaTeX/TikZ/Functor.pm index 4ccfd32..4aa8112 100644 --- a/lib/LaTeX/TikZ/Functor.pm +++ b/lib/LaTeX/TikZ/Functor.pm @@ -9,16 +9,41 @@ LaTeX::TikZ::Functor - Build functor methods that recursively visit nodes of a L =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; =head1 DESCRIPTION A functor takes a L tree and clones it according to certain rules. -Rules can apply not only to L objects, but also to the L objects they contain. + +Rules can apply not only to L consumer objects, but also to the L consumer objects they contain. +The are stored as L objects. + +When the functor is called onto a set object, all its associated rules are tried successively, and the handler of the first matching rule is executed with : + +=over 4 + +=item * + +the functor object as its first argument ; + +=item * + +the current set object as its second argument ; + +=item * + +the arguments passed to the functor itself starting at the third argument. + +=back + +The handler is expected to return the new set/mod that will in the resulting set tree. +If the new set is different from the original, then the functor is applied to all the mods of the set, and their cloned version are added to the new set. + +If no matching rule is found, the object is returned as-is. =cut @@ -147,7 +172,7 @@ sub new { return $set unless $rule; my $new_set = $rule->handler->($self, $set, @_); - return $set if $new_set eq $set; + return $set if $new_set == $set; my @new_mods; MOD: @@ -209,7 +234,7 @@ sub default_rule { =head1 SEE ALSO -L. +L, L. =head1 AUTHOR