Reduce to a warning the commit-without-apparent-begin exception from 7d216b10
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSource / Table.pm
1 package DBIx::Class::ResultSource::Table;
2
3 use strict;
4 use warnings;
5
6 use DBIx::Class::ResultSet;
7
8 use base qw/DBIx::Class/;
9 __PACKAGE__->load_components(qw/ResultSource/);
10
11 =head1 NAME
12
13 DBIx::Class::ResultSource::Table - Table object
14
15 =head1 SYNOPSIS
16
17 =head1 DESCRIPTION
18
19 Table object that inherits from L<DBIx::Class::ResultSource>.
20
21 =head1 METHODS
22
23 =head2 from
24
25 Returns the FROM entry for the table (i.e. the table name)
26
27 =cut
28
29 sub from { shift->name; }
30
31 1;
32
33 =head1 AUTHORS
34
35 Matt S. Trout <mst@shadowcatsystems.co.uk>
36
37 =head1 LICENSE
38
39 You may distribute this code under the same terms as Perl itself.
40
41 =cut
42