while (@_ >= 2) {
my ($name, $code) = splice @_, 0, 2;
while (@_ >= 2) {
my ($name, $code) = splice @_, 0, 2;
require LaTeX::TikZ::Set::Polyline; # polyline, closed_polyline
require LaTeX::TikZ::Set::Rectangle; # rectangle
require LaTeX::TikZ::Set::Circle; # circle
require LaTeX::TikZ::Set::Polyline; # polyline, closed_polyline
require LaTeX::TikZ::Set::Rectangle; # rectangle
require LaTeX::TikZ::Set::Circle; # circle
require LaTeX::TikZ::Mod::Width; # width
require LaTeX::TikZ::Mod::Color; # color
require LaTeX::TikZ::Mod::Fill; # fill
require LaTeX::TikZ::Mod::Width; # width
require LaTeX::TikZ::Mod::Color; # color
require LaTeX::TikZ::Mod::Fill; # fill