NAME

DBIx::DBSchema::ColGroup - Column group objects

SYNOPSIS

            

              
              
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

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

METHODS

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

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

COPYRIGHT

Copyright (c) 2000 Ivan Kohler Copyright (c) 2000 Mail Abuse Prevention System LLC All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

BUGS

SEE ALSO

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