use LaTeX::TikZ::Point;
+use LaTeX::TikZ::Interface;
use LaTeX::TikZ::Functor;
use Any::Moose;
'(' . $tikz->len($p->x) . ',' . $tikz->len($p->y) . ')';
}
-use LaTeX::TikZ::Interface point => sub {
- shift;
+LaTeX::TikZ::Interface->register(
+ point => sub {
+ shift;
- my $point = @_ == 0 ? 0
- : @_ == 1 ? $_[0]
- : \@_;
- __PACKAGE__->new(point => $point);
-};
+ my $point = @_ == 0 ? 0
+ : @_ == 1 ? $_[0]
+ : \@_;
+ __PACKAGE__->new(point => $point);
+ },
+);
LaTeX::TikZ::Functor->default_rule(
(__PACKAGE__) => sub {