use strict;
use warnings;
-use Scalar::Util ();
+use Mouse::Util;
+
use Mouse::Meta::TypeConstraint;
use Mouse::Meta::Method::Accessor;
sub accessor_metaclass { 'Mouse::Meta::Method::Accessor' }
-sub _inlined_name {
- my $self = shift;
- return sprintf '"%s"', quotemeta $self->name;
-}
-
-
sub create {
my ($self, $class, $name, %args) = @_;