DBIx::DBSchema::ColGroup - Column group objects


DBIx-DBSchema documentation Contained in the DBIx-DBSchema distribution.

Index


Code Index:

NAME

Top

DBIx::DBSchema::ColGroup - Column group objects

SYNOPSIS

Top

  use DBIx::DBSchema::ColGroup;

  $colgroup = new DBIx::DBSchema::ColGroup ( $lol_ref );
  $colgroup = new DBIx::DBSchema::ColGroup ( \@lol );
  $colgroup = new DBIx::DBSchema::ColGroup (
    [
      [ 'single_column' ],
      [ 'multiple_columns', 'another_column', ],
    ]
  );

  $lol_ref = $colgroup->lol_ref;

  @sql_lists = $colgroup->sql_list;

  @singles = $colgroup->singles;

DESCRIPTION

Top

This class is deprecated and included for backwards-compatibility only. See DBIx::DBSchema::Index for the current class used to store unique and non-unique indices.

DBIx::DBSchema::ColGroup objects represent sets of sets of columns. (IOW a "list of lists" - see perllol.)

METHODS

Top

new [ LOL_REF ]

Creates a new DBIx::DBSchema::ColGroup object. Pass a reference to a list of lists of column names.

lol_ref

Returns a reference to a list of lists of column names.

sql_list

Returns a flat list of comma-separated values, for SQL statements.

For example:

  @lol = (
           [ 'single_column' ],
           [ 'multiple_columns', 'another_column', ],
         );

  $colgroup = new DBIx::DBSchema::ColGroup ( \@lol );

  print join("\n", $colgroup->sql_list), "\n";

Will print:

  single_column
  multiple_columns, another_column

singles

Returns a flat list of all single item lists.

AUTHOR

Top

Ivan Kohler <ivan-dbix-dbschema@420.am>

COPYRIGHT

Top

BUGS

Top

SEE ALSO

Top

DBIx::DBSchema::Index, DBIx::DBSchema::Table, DBIx::DBSchema::ColGroup::Unique, DBIx::DBSchema::ColGroup::Index, DBIx::DBSchema, perllol, perldsc, DBI


DBIx-DBSchema documentation Contained in the DBIx-DBSchema distribution.
package DBIx::DBSchema::ColGroup;

use strict;
use Carp;

sub new {
  my($proto, $lol) = @_;

  my $class = ref($proto) || $proto;

  carp "WARNING: $proto is deprecated; switch to DBIx::DBSchema::Index";

  my $self = {
    'lol' => $lol,
  };

  bless ($self, $class);

}

sub lol_ref {
  my($self) = @_;
  $self->{'lol'};
}

sub sql_list { #returns a flat list of comman-separates lists (for sql)
  my($self)=@_;
   grep $_ ne '', map join(', ', @{$_}), @{$self->{'lol'}};
}

sub singles { #returns single-field groups as a flat list
  my($self)=@_;
  #map ${$_}[0], grep scalar(@{$_}) == 1, @{$self->{'lol'}};
  map { 
    ${$_}[0] =~ /^(\w+)$/
      #aah!
      or die "Illegal column ", ${$_}[0], " in colgroup!";
    $1;
  } grep scalar(@{$_}) == 1, @{$self->{'lol'}};
}

1;