rm ->make_immutable from PerRequestSchema trait

[catagits/Catalyst-Model-DBIC-Schema.git] / lib / Catalyst / TraitFor / Model / DBIC / Schema / PerRequestSchema.pm

diff --git a/lib/Catalyst/TraitFor/Model/DBIC/Schema/PerRequestSchema.pm b/lib/Catalyst/TraitFor/Model/DBIC/Schema/PerRequestSchema.pm
index dcbd61f..337a3c1 100644 (file)
--- a/lib/Catalyst/TraitFor/Model/DBIC/Schema/PerRequestSchema.pm
+++ b/lib/Catalyst/TraitFor/Model/DBIC/Schema/PerRequestSchema.pm
@@ -1,26 +1,64 @@
 package Catalyst::TraitFor::Model::DBIC::Schema::PerRequestSchema;
-use Moose;
+
+use Moose::Role;
 use namespace::autoclean;
 
-sub BUILD {}
-after BUILD => sub {
-    my ($self) = @_;
-    confess("You have not implemented a per_request_schema_attributes method in " . ref($self))
-        unless $self->can('per_request_schema_attributes');
-};
+requires 'per_request_schema_attributes';
 
 with 'Catalyst::Component::InstancePerContext';
 
+=head1 NAME
+
+Catalyst::TraitFor::Model::DBIC::Schema::PerRequestSchema - Clone the schema
+with attributes for each requests
+
+=head1 SYNOPSIS
+
+    __PACKAGE__->config({
+        traits => ['PerRequestSchema'],
+    });
+
+    method per_request_schema_attributes($c) {
+        return (restricting_object => $c->user->obj);
+    }
+
+=head1 DESCRIPTION
+
+Clones the schema for each new request with the attributes retrieved from your
+C<per_request_schema_attributes> method, which you must implement. This method
+is passed the context.
+
+=cut
+
 sub build_per_context_instance {
     my ( $self, $ctx ) = @_;
     return $self unless blessed($ctx);
 
     my $new = bless {%$self}, ref $self;
 
-    $new->schema( $new->schema->clone($self->per_request_schema_attributes($ctx)) );
+    $new->schema($new->schema->clone($self->per_request_schema_attributes($ctx)));
 
     return $new;
 }
 
-__PACKAGE__->meta->make_immutable;
+=head1 SEE ALSO
+
+L<Catalyst::Model::DBIC::Schema>, L<DBIx::Class::Schema>
+
+=head1 AUTHOR
+
+See L<Catalyst::Model::DBIC::Schema/AUTHOR> and
+L<Catalyst::Model::DBIC::Schema/CONTRIBUTORS>.
+
+=head1 COPYRIGHT
+
+See L<Catalyst::Model::DBIC::Schema/COPYRIGHT>.
+
+=head1 LICENSE
+
+This program is free software, you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
 
+1;