From: Rafael Kitover <rkitover@cpan.org>
Date: Thu, 8 Jul 2010 00:10:15 +0000 (-0400)
Subject: document result_roles and schema_roles
X-Git-Tag: 0.07001~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=99af63b16892adc43f340e4cba9c3da897125ecb;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

document result_roles and schema_roles
---

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index ede47bd..9b8977e 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -49,7 +49,9 @@ __PACKAGE__->mk_group_ro_accessors('simple', qw/
                                 resultset_namespace
                                 default_resultset_class
                                 schema_base_class
+                                schema_roles
                                 result_base_class
+                                result_roles
                                 use_moose
 				overwrite_modifications
 
@@ -319,11 +321,19 @@ Default behavior is to utilize L<Lingua::EN::Inflect::Number/to_S>.
 
 Base class for your schema classes. Defaults to 'DBIx::Class::Schema'.
 
+=head2 schema_roles
+
+Roles your schema class will consume, implies L</use_moose>.
+
 =head2 result_base_class
 
 Base class for your table classes (aka result classes). Defaults to
 'DBIx::Class::Core'.
 
+=head2 result_roles
+
+Roles your Result classes will consume, implies L</use_moose>.
+
 =head2 additional_base_classes
 
 List of additional base classes all of your table classes will use.
@@ -494,6 +504,7 @@ my $CURRENT_V = 'v7';
 my @CLASS_ARGS = qw(
     schema_base_class result_base_class additional_base_classes
     left_base_classes additional_classes components resultset_components
+    schema_roles result_roles
 );
 
 # ensure that a peice of object data is a valid arrayref, creating
@@ -539,6 +550,8 @@ sub new {
                                left_base_classes
                                components
                                resultset_components
+                               schema_roles
+                               result_roles
                               /);
 
     $self->_validate_class_args;