ground work. still to do is tests, docs, better code
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSource / View.pm
1 package DBIx::Class::ResultSource::View;
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
12   _columns _primaries _unique_constraints name resultset_attributes
13   schema from _relationships column_info_from_storage source_info
14   source_name/);
15
16
17 =head1 NAME
18
19 DBIx::Class::ResultSource::Table - Table object
20
21 =head1 SYNOPSIS
22
23 =head1 DESCRIPTION
24
25 Table object that inherits from L<DBIx::Class::ResultSource>
26
27 =head1 METHODS
28
29 =head2 from
30
31 Returns the FROM entry for the table (i.e. the view name)
32
33 =cut
34
35 sub from { shift->name; }
36
37 1;
38
39 =head1 AUTHORS
40
41 Matt S. Trout <mst@shadowcatsystems.co.uk>
42
43 With Contributions from:
44
45 Guillermo Roditi E<lt>groditi@cpan.orgE<gt>
46
47 =head1 LICENSE
48
49 You may distribute this code under the same terms as Perl itself.
50
51 =cut
52