C::M::DBIC::Schema - cleanups

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

diff --git a/lib/Catalyst/Model/DBIC/Schema.pm b/lib/Catalyst/Model/DBIC/Schema.pm
index 51dc775..d1cdc0a 100644 (file)
--- a/lib/Catalyst/Model/DBIC/Schema.pm
+++ b/lib/Catalyst/Model/DBIC/Schema.pm
@@ -380,9 +380,9 @@ Used often for debugging and controlling transactions.
 
 =cut
 
-class_has 'composed_schema' => (is => 'rw');
+class_has 'composed_schema' => (is => 'rw', isa => 'DBIx::Class::Schema');
 
-has 'schema' => (is => 'rw');
+has 'schema' => (is => 'rw', isa => 'DBIx::Class::Schema');
 
 has 'schema_class' => (
     is => 'ro',
@@ -391,17 +391,17 @@ has 'schema_class' => (
     required => 1
 );
 
-has 'storage_type' => (is => 'ro');
+has 'storage_type' => (is => 'ro', isa => 'Str');
 
 has 'connect_info' => (is => 'ro', isa => ConnectInfo, coerce => 1);
 
 # ref $self changes to anon after roles are applied, and _original_class_name is
-# broken in MX::O::P
+# broken in MX::O::P 0.0009
 has '_class_name' => (is => 'ro', isa => 'ClassName', default => sub {
     ref shift
 });
 
-has 'model_name' => (is => 'ro', default => sub {
+has 'model_name' => (is => 'ro', isa => 'Str', default => sub {
     my $self = shift;
 
     my $class = ref $self;
@@ -510,6 +510,10 @@ L<DBIx::Class::Schema::Loader>, L<Catalyst::Helper::Model::DBIC::Schema>
 
 Brandon L Black, C<blblack@gmail.com>
 
+Contributors:
+
+Rafael Kitover, C<<rkitover at cpan.org>>
+
 =head1 COPYRIGHT
 
 This program is free software, you can redistribute it and/or modify it