1 package DBIx::Class::ResultSource::View;
6 use DBIx::Class::ResultSet;
8 use base qw/DBIx::Class/;
9 __PACKAGE__->load_components(qw/ResultSource/);
10 __PACKAGE__->mk_group_accessors(
11 'simple' => qw(is_virtual view_definition)
16 DBIx::Class::ResultSource::Table - Table object
22 Table object that inherits from L<DBIx::Class::ResultSource>
28 Attribute to declare a view as virtual.
32 Returns the FROM entry for the table (i.e. the view name)
33 or the definition if this is a virtual view.
39 return \"(${\$self->view_definition})" if $self->is_virtual;
47 Matt S. Trout <mst@shadowcatsystems.co.uk>
49 With Contributions from:
51 Guillermo Roditi E<lt>groditi@cpan.orgE<gt>
55 You may distribute this code under the same terms as Perl itself.