extends 'Catalyst::Model';
with 'CatalystX::Component::Traits';
-our $VERSION = '0.36';
+our $VERSION = '0.46';
$VERSION = eval $VERSION;
use namespace::autoclean;
Traits you used resolved to full class names.
+=head1 CONFIGURING YOUR SCHEMA AND RESULTSETS
+
+See the documentation for
+L<Catalyst::TraitFor::Model::DBIC::Schema::SchemaProxy> for instructions on how
+to pass config values from your L<Catalyst> config to your
+L<DBIx::Class::Schema> and/or L<DBIx::Class::ResultSet> classes.
+
=head1 METHODS
=head2 new
=head2 storage
Provides an accessor for the connected schema's storage object.
-Used often for debugging and controlling transactions.
+
+See L<DBIx::Class::Storage> and L<DBIx::Class::Storage::DBI>.
=cut
has schema => (is => 'rw', isa => Schema);
+my $app_class;
+
+before COMPONENT => sub {
+ $app_class = ref $_[1] || $_[1];
+};
+
+sub app_class { $app_class }
+
sub BUILD {
my ($self, $args) = @_;
my $class = $self->_original_class_name;
sub txn_scope_guard { shift->schema->txn_scope_guard(@_); }
+sub storage { shift->schema->storage(@_); }
+
=head2 setup
Called at C<BUILD> time before configuration, but after L</connect_info> is
=head1 COPYRIGHT
-Copyright (c) 2006 - 2009
+Copyright (c) 2006 - 2010
the Catalyst::Model::DBIC::Schema L</AUTHOR> and L</CONTRIBUTORS>
as listed above.
=cut
1;
-# vim:sts=4 sw=4 et:
+# vim:sts=4 sw=4 et tw=80: