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