X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet.pm;h=a6dd87f034b776dfbef347cb0bee2b518728f726;hb=2cb1b719d9727a55a43758c1c3aaea2667c619f2;hp=e673097ec2f20e7a9349e8cabff8cdef3cfb84c3;hpb=4ec204cfd114d9ce19fd616f093503c971b00a1f;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Set.pm b/lib/LaTeX/TikZ/Set.pm index e673097..a6dd87f 100644 --- a/lib/LaTeX/TikZ/Set.pm +++ b/lib/LaTeX/TikZ/Set.pm @@ -94,9 +94,10 @@ around 'draw' => sub { my @mods = $cxt->effective_mods; if (@mods) { - $body = LaTeX::TikZ::Scope->new - ->mod(map $_->apply($tikz), @mods) - ->body($body); + $body = LaTeX::TikZ::Scope->new( + mods => [ map $_->apply($tikz), @mods ], + body => $body, + ); } $body;