- Sub::Name::subname('find_mods' => sub {
- my ($set, $layers, $others) = @_;
+=cut
+
+sub id {
+ my $tikz = shift;
+
+ my $origin = $tikz->origin;
+ if (defined $origin) {
+ my ($x, $y) = map $origin->$_, qw/x y/;
+ $origin = "($x;$y)";
+ } else {
+ $origin = "(0;0)";
+ }
+
+ join $;, map {
+ defined() ? "$_" : '(undef)';
+ } map($tikz->$_, qw/unit format scale width height/), $origin;
+}
+
+=head2 C<render>
+
+=cut
+
+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) = @_;