Catalyst-Authentication-Store-RDBO/t/lib/TestApp/RDBO/Role.pm

   1 package TestApp::RDBO::Role;
   2
   3 use strict;
   4
   5 use base qw(TestApp::DB::Object);
   6
   7 __PACKAGE__->meta->setup(
   8     table => 'role',
   9
  10     columns => [ qw/id role/ ],
  11
  12     primary_key_columns => [ qw/ id / ],
  13 );
  14
  15 =head1 AUTHOR
  16
  17 vti
  18
  19 =head1 LICENSE
  20
  21 This library is free software, you can redistribute it and/or modify
  22 it under the same terms as Perl itself.
  23
  24 =cut
  25
  26 1;