);
has 'origin' => (
- is => 'ro',
- does => 'Maybe[LaTeX::TikZ::Point]',
+ is => 'ro',
+ isa => 'Maybe[LaTeX::TikZ::Point::Autocoerce]',
+ coerce => 1,
);
+sub id {
+ my $tikz = shift;
+
+ join $;, map {
+ my $val = $tikz->$_;
+ defined($val) ? "$val" : '(undef)';
+ } qw/unit format scale width height origin/;
+}
+
my $find_mods;
$find_mods = do {
no warnings 'recursion';