X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;fp=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;h=9b8977edf3b1ce4ea018cb26ceca16d1e7c34ebd;hb=99af63b16892adc43f340e4cba9c3da897125ecb;hp=ede47bdc785b8c4efa468e6257b13b0167188ec1;hpb=ceb53f72f8d9887c1fcca713a93734330b16138c;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

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;