lib/DBIx/Class/Table.pm

   1 package DBIx::Class::Table;
   2
   3 use strict;
   4 use warnings;
   5
   6 use DBIx::Class::ResultSet;
   7
   8 use Carp qw/croak/;
   9
  10 use base qw/DBIx::Class/;
  11 __PACKAGE__->load_components(qw/ResultSource AccessorGroup/);
  12
  13 __PACKAGE__->mk_group_accessors('simple' =>
  14   qw/_columns _primaries name resultset_class result_class schema/);
  15
  16 =head1 NAME
  17
  18 DBIx::Class::Table - Table object
  19
  20 =head1 SYNOPSIS
  21
  22 =head1 DESCRIPTION
  23
  24 Table object that inherits from L<DBIx::Class::ResultSource>
  25
  26 =head1 METHODS
  27
  28 =head2 from
  29
  30 Returns the FROM entry for the table (i.e. the table name)
  31
  32 =cut
  33
  34 sub from { shift->name; }
  35
  36 1;
  37
  38 =head1 AUTHORS
  39
  40 Matt S. Trout <mst@shadowcatsystems.co.uk>
  41
  42 =head1 LICENSE
  43
  44 You may distribute this code under the same terms as Perl itself.
  45
  46 =cut
  47