- rename ResultSetInstance class to ResultSetProxy

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / TableInstance.pm

diff --git a/lib/DBIx/Class/TableInstance.pm b/lib/DBIx/Class/TableInstance.pm
deleted file mode 100644 (file)
index 4858c30..0000000
--- a/lib/DBIx/Class/TableInstance.pm
+++ /dev/null
@@ -1,96 +0,0 @@
-package DBIx::Class::TableInstance;
-
-use strict;
-use warnings;
-
-use base qw/DBIx::Class::ResultSourceInstance/;
-use DBIx::Class::ResultSource::Table;
-
-__PACKAGE__->mk_classdata('table_alias'); # FIXME: Doesn't actually do anything yet!
-
-__PACKAGE__->mk_classdata('table_class' => 'DBIx::Class::ResultSource::Table');
-
-=head1 NAME 
-
-DBIx::Class::TableInstance - provides a classdata table object and method proxies
-
-=head1 SYNOPSIS
-
-  __PACKAGE__->table('foo');
-  __PACKAGE__->add_columns(qw/id bar baz/);
-  __PACKAGE__->set_primary_key('id');
-
-=head1 METHODS
-
-=head2 add_columns
-
-  __PACKAGE__->add_columns(qw/col1 col2 col3/);
-
-Adds columns to the current class and creates accessors for them.
-
-=cut
-
-=head2 table
-
-  __PACKAGE__->table('tbl_name');
-  
-Gets or sets the table name.
-
-=cut
-
-sub table {
-  my ($class, $table) = @_;
-  return $class->result_source_instance->name unless $table;
-  unless (ref $table) {
-    $table = $class->table_class->new(
-      {
-        name => $table,
-        result_class => $class,
-      });
-    if ($class->can('result_source_instance')) {
-      $table->{_columns} = { %{$class->result_source_instance->{_columns}||{}} };
-      $table->{_ordered_columns} =
-        [ @{$class->result_source_instance->{_ordered_columns}||[]} ];
-    }
-  }
-  $class->mk_classdata('result_source_instance' => $table);
-  if ($class->can('schema_instance')) {
-    $class =~ m/([^:]+)$/;
-    $class->schema_instance->register_class($class, $class);
-  }
-}
-
-=head2 has_column                                                                
-                                                                                
-  if ($obj->has_column($col)) { ... }                                           
-                                                                                
-Returns 1 if the class has a column of this name, 0 otherwise.                  
-                                                                                
-=cut                                                                            
-
-=head2 column_info                                                               
-                                                                                
-  my $info = $obj->column_info($col);                                           
-                                                                                
-Returns the column metadata hashref for a column.
-                                                                                
-=cut                                                                            
-
-=head2 columns
-
-  my @column_names = $obj->columns;                                             
-                                                                                
-=cut                                                                            
-
-1;
-
-=head1 AUTHORS
-
-Matt S. Trout <mst@shadowcatsystems.co.uk>
-
-=head1 LICENSE
-
-You may distribute this code under the same terms as Perl itself.
-
-=cut
-