Remove magic LaTeX::TikZ::Interface->import

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Point.pm

diff --git a/lib/LaTeX/TikZ/Set/Point.pm b/lib/LaTeX/TikZ/Set/Point.pm
index eee96b0fa55c97c0b98cc1994a2aed69f614169b..5bf292b10ca11bffccb4c1b26c90af74f803a5e2 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Point.pm
+++ b/lib/LaTeX/TikZ/Set/Point.pm
@@ -17,6 +17,9 @@ our $VERSION = '0.01';
 
 use LaTeX::TikZ::Point;
 
+use LaTeX::TikZ::Interface;
+use LaTeX::TikZ::Functor;
+
 use Any::Moose;
 use Any::Moose 'Util::TypeConstraints';
 
@@ -46,14 +49,23 @@ sub path {
  '(' . $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 {
+  my ($functor, $set, @args) = @_;
+  $set->new(point => $set->point);
+ }
+);
 
 __PACKAGE__->meta->make_immutable;