use Sub::Name ();
+use LaTeX::TikZ::Tools;
+
use Any::Moose;
-use Any::Moose 'Util' => [ 'find_meta' ];
=head1 RELATIONSHIPS
}
my $parent = delete $args{parent};
- unless (defined $parent and blessed $parent) {
- $parent = find_meta($parent);
- Carp::confess("No meta object for parent $parent");
- $parent = $parent->type_constraint;
+ unless (blessed $parent) {
+ my $parent_name = defined $parent ? "parent $parent" : 'undefined parent';
+ $parent = LaTeX::TikZ::Tools::type_constraint($parent) if defined $parent;
+ Carp::confess("No meta object for $parent_name") unless defined $parent;
}
__PACKAGE__->meta->find_attribute_by_name('parent')
->type_constraint->assert_valid($parent);