s/Role::Meta/Trait/g

[gitmo/MooseX-StrictConstructor.git] / lib / MooseX / StrictConstructor / Role / Meta / Method / Constructor.pm

diff --git a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
deleted file mode 100644 (file)
index 43b2aa2..0000000
--- a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package MooseX::StrictConstructor::Role::Meta::Method::Constructor;
-
-use strict;
-use warnings;
-
-use B ();
-use Carp ();
-
-use Moose::Role;
-
-around '_generate_BUILDALL' => sub {
-    my $orig = shift;
-    my $self = shift;
-
-    my $source = $self->$orig();
-    $source .= ";\n" if $source;
-
-    my @attrs = (
-        '__INSTANCE__ => 1,',
-        map { B::perlstring($_) . ' => 1,' }
-        grep {defined}
-        map  { $_->init_arg() } @{ $self->_attributes() }
-    );
-
-    $source .= <<"EOF";
-my \%attrs = (@attrs);
-
-my \@bad = sort grep { ! \$attrs{\$_} }  keys \%{ \$params };
-
-if (\@bad) {
-    Carp::confess "Found unknown attribute(s) passed to the constructor: \@bad";
-}
-EOF
-
-    return $source;
-};
-
-no Moose::Role;
-
-1;
-
-# ABSTRACT: A role to make immutable constructors strict
-
-__END__
-
-=pod
-
-=head1 SYNOPSIS
-
-  Moose::Util::MetaRole::apply_metaroles(
-      for_class => $caller,
-      class     => {
-          constructor =>
-              ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
-      },
-  );
-
-=head1 DESCRIPTION
-
-This role simply wraps C<_generate_BUILDALL()> (from
-C<Moose::Meta::Method::Constructor>) so that immutable classes have a
-strict constructor.
-
-=cut
-