1 package DBIx::Class::ResultSourceProxy::Table;
6 use base qw/DBIx::Class::ResultSourceProxy/;
8 use DBIx::Class::ResultSource::Table;
9 use Scalar::Util 'blessed';
12 # FIXME - both of these *PROBABLY* need to be 'inherited_ro_instance' type
13 __PACKAGE__->mk_classaccessor(table_class => 'DBIx::Class::ResultSource::Table');
14 # FIXME: Doesn't actually do anything yet!
15 __PACKAGE__->mk_group_accessors( inherited => 'table_alias' );
17 sub _init_result_source_instance {
20 $class->mk_group_accessors( inherited => 'result_source_instance' )
21 unless $class->can('result_source_instance');
23 # might be pre-made for us courtesy of DBIC::DB::result_source_instance()
24 my $rsrc = $class->result_source_instance;
27 if $rsrc and $rsrc->result_class eq $class;
29 my $table_class = $class->table_class;
30 $class->ensure_class_loaded($table_class);
33 $rsrc = $table_class->new({
35 result_class => $class,
41 $rsrc = $table_class->new({
43 result_class => $class,
48 $class->result_source_instance($rsrc);
53 DBIx::Class::ResultSourceProxy::Table - provides a classdata table
54 object and method proxies
58 __PACKAGE__->table('cd');
59 __PACKAGE__->add_columns(qw/cdid artist title year/);
60 __PACKAGE__->set_primary_key('cdid');
66 __PACKAGE__->add_columns(qw/cdid artist title year/);
68 Adds columns to the current class and creates accessors for them.
74 __PACKAGE__->table('tbl_name');
76 Gets or sets the table name.
81 return $_[0]->result_source_instance->name unless @_ > 1;
83 my ($class, $table) = @_;
85 unless (blessed $table && $table->isa($class->table_class)) {
87 my $table_class = $class->table_class;
88 $class->ensure_class_loaded($table_class);
90 $table = $table_class->new({
91 $class->can('result_source_instance')
92 ? %{$class->result_source_instance||{}}
96 result_class => $class,
100 $class->mk_group_accessors(inherited => 'result_source_instance')
101 unless $class->can('result_source_instance');
103 $class->result_source_instance($table)->name;
108 __PACKAGE__->table_class('DBIx::Class::ResultSource::Table');
110 Gets or sets the table class used for construction and validation.
114 if ($obj->has_column($col)) { ... }
116 Returns 1 if the class has a column of this name, 0 otherwise.
120 my $info = $obj->column_info($col);
122 Returns the column metadata hashref for a column. For a description of
123 the various types of column data in this hashref, see
124 L<DBIx::Class::ResultSource/add_column>
128 my @column_names = $obj->columns;
130 =head1 FURTHER QUESTIONS?
132 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
134 =head1 COPYRIGHT AND LICENSE
136 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
137 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
138 redistribute it and/or modify it under the same terms as the
139 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.