- Sub::Name::subname('find_mods' => sub {
- my ($set, $layers, $others) = @_;
+ join $;, map {
+ my $val = $tikz->$_;
+ defined($val) ? "$val" : '(undef)';
+ } qw/unit format scale width height origin/;
+}
+
+my $find_mods = do {
+ our %seen;
+
+ my $find_mods_rec;
+ $find_mods_rec = do {
+ no warnings 'recursion';
+
+ Sub::Name::subname('find_mods_rec' => sub {
+ my ($set, $layers, $others) = @_;