Scroll to navigation

SQL::Translator::Schema::Table(3) User Contributed Perl Documentation SQL::Translator::Schema::Table(3)

NAME

SQL::Translator::Schema::Table - SQL::Translator table object

SYNOPSIS

  use SQL::Translator::Schema::Table;
  my $table = SQL::Translator::Schema::Table->new( name => 'foo' );

DESCRIPTION

"SQL::Translator::Schema::Table" is the table object.

METHODS

new

Object constructor.

  my $table  =  SQL::Translator::Schema::Table->new(
      schema => $schema,
      name   => 'foo',
  );

add_constraint

Add a constraint to the table. Returns the newly created "SQL::Translator::Schema::Constraint" object.

  my $c1     = $table->add_constraint(
      name   => 'pk',
      type   => PRIMARY_KEY,
      fields => [ 'foo_id' ],
  );
  my $c2 = SQL::Translator::Schema::Constraint->new( name => 'uniq' );
  $c2    = $table->add_constraint( $constraint );

drop_constraint

Remove a constraint from the table. Returns the constraint object if the index was found and removed, an error otherwise. The single parameter can be either an index name or an "SQL::Translator::Schema::Constraint" object.

  $table->drop_constraint('myconstraint');

add_index

Add an index to the table. Returns the newly created "SQL::Translator::Schema::Index" object.

  my $i1     = $table->add_index(
      name   => 'name',
      fields => [ 'name' ],
      type   => 'normal',
  );
  my $i2 = SQL::Translator::Schema::Index->new( name => 'id' );
  $i2    = $table->add_index( $index );

drop_index

Remove an index from the table. Returns the index object if the index was found and removed, an error otherwise. The single parameter can be either an index name of an "SQL::Translator::Schema::Index" object.

  $table->drop_index('myindex');

add_field

Add an field to the table. Returns the newly created "SQL::Translator::Schema::Field" object. The "name" parameter is required. If you try to create a field with the same name as an existing field, you will get an error and the field will not be created.

  my $f1        =  $table->add_field(
      name      => 'foo_id',
      data_type => 'integer',
      size      => 11,
  );
  my $f2     =  SQL::Translator::Schema::Field->new(
      name   => 'name',
      table  => $table,
  );
  $f2 = $table->add_field( $field2 ) or die $table->error;

drop_field

Remove a field from the table. Returns the field object if the field was found and removed, an error otherwise. The single parameter can be either a field name or an "SQL::Translator::Schema::Field" object.

  $table->drop_field('myfield');

comments

Get or set the comments on a table. May be called several times to set and it will accumulate the comments. Called in an array context, returns each comment individually; called in a scalar context, returns all the comments joined on newlines.

  $table->comments('foo');
  $table->comments('bar');
  print join( ', ', $table->comments ); # prints "foo, bar"

get_constraints

Returns all the constraint objects as an array or array reference.

  my @constraints = $table->get_constraints;

get_indices

Returns all the index objects as an array or array reference.

  my @indices = $table->get_indices;

get_field

Returns a field by the name provided.

  my $field = $table->get_field('foo');

get_fields

Returns all the field objects as an array or array reference.

  my @fields = $table->get_fields;

is_valid

Determine whether the view is valid or not.

  my $ok = $view->is_valid;

True if table has no data (non-key) fields and only uses single key joins.

is_data

Returns true if the table has some non-key fields.

Determine whether the table can link two arg tables via many-to-many.

  my $ok = $table->can_link($table1,$table2);

name

Get or set the table's name.

Errors ("No table name") if you try to set a blank name.

If provided an argument, checks the schema object for a table of that name and disallows the change if one exists (setting the error to "Can't use table name "%s": table exists").

  my $table_name = $table->name('foo');

schema

Get or set the table's schema object.

  my $schema = $table->schema;

primary_key

Gets or sets the table's primary key(s). Takes one or more field names (as a string, list or array[ref]) as an argument. If the field names are present, it will create a new PK if none exists, or it will add to the fields of an existing PK (and will unique the field names). Returns the "SQL::Translator::Schema::Constraint" object representing the primary key.

These are equivalent:

  $table->primary_key('id');
  $table->primary_key(['name']);
  $table->primary_key('id','name']);
  $table->primary_key(['id','name']);
  $table->primary_key('id,name');
  $table->primary_key(qw[ id name ]);
  my $pk = $table->primary_key;

options

Get or append to the table's options (e.g., table types for MySQL). Returns an array or array reference.

  my @options = $table->options;

order

Get or set the table's order.

  my $order = $table->order(3);

field_names

Read-only method to return a list or array ref of the field names. Returns undef or an empty list if the table has no fields set. Useful if you want to avoid the overload magic of the Field objects returned by the get_fields method.

  my @names = $constraint->field_names;

equals

Determines if this table is the same as another

  my $isIdentical = $table1->equals( $table2 );

LOOKUP METHODS

The following are a set of shortcut methods for getting commonly used lists of fields and constraints. They all return lists or array refs of Field or Constraint objects.

The primary key fields.
All foreign key fields.
All the fields except the primary key.
All non key fields.
All fields with unique constraints.
All this tables unique constraints.
All this tables foreign key constraints. (See primary_key method to get the primary key constraint)

AUTHORS

Ken Youens-Clark <kclark@cpan.org>, Allen Day <allenday@ucla.edu>.

2024-03-08 perl v5.40.0