our $VERSION = '0.01';
+use LaTeX::TikZ::Point;
+
use Any::Moose;
with 'LaTeX::TikZ::Set::Op';
has 'point' => (
is => 'ro',
- does => 'LaTeX::TikZ::Point',
+ does => 'LaTeX::TikZ::Point::Autocoerce',
required => 1,
+ coerce => 1,
);
sub path {
my $p = $set->point;
- '(' . $tikz->len($p->Re) . ',' . $tikz->len($p->Im) . ')';
+ '(' . $tikz->len($p->x) . ',' . $tikz->len($p->y) . ')';
}
use LaTeX::TikZ::Interface point => sub {