X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FModel%2FDBIC%2FSchema.pm;h=b5a93ef3604a28627f3726258cfb517cabd21c2d;hb=bf4bdab65638c0d4aad4e4d21d5d8e8149dc0329;hp=8adb800853081cee80343ca26b3412af011c2358;hpb=510629748f0214f9e8bed35502a90edf7b6d589e;p=catagits%2FCatalyst-Model-DBIC-Schema.git diff --git a/lib/Catalyst/Model/DBIC/Schema.pm b/lib/Catalyst/Model/DBIC/Schema.pm index 8adb800..b5a93ef 100644 --- a/lib/Catalyst/Model/DBIC/Schema.pm +++ b/lib/Catalyst/Model/DBIC/Schema.pm @@ -5,7 +5,7 @@ use mro 'c3'; extends 'Catalyst::Model'; with 'CatalystX::Component::Traits'; -our $VERSION = '0.40'; +our $VERSION = '0.45'; $VERSION = eval $VERSION; use namespace::autoclean; @@ -348,6 +348,13 @@ Unresolved arrayref of traits passed in the config. Traits you used resolved to full class names. +=head1 CONFIGURING YOUR SCHEMA AND RESULTSETS + +See the documentation for +L for instructions on how +to pass config values from your L config to your +L and/or L classes. + =head1 METHODS =head2 new @@ -401,7 +408,8 @@ Shortcut for ->schema->txn_scope_guard =head2 storage Provides an accessor for the connected schema's storage object. -Used often for debugging and controlling transactions. + +See L and L. =cut @@ -432,6 +440,14 @@ has _default_cursor_class => ( 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; @@ -660,7 +676,7 @@ Pavel I. Shaydo C =head1 COPYRIGHT -Copyright (c) 2006 - 2009 +Copyright (c) 2006 - 2010 the Catalyst::Model::DBIC::Schema L and L as listed above. @@ -672,4 +688,4 @@ under the same terms as Perl itself. =cut 1; -# vim:sts=4 sw=4 et: +# vim:sts=4 sw=4 et tw=80: