1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
package FS::dbdef_colgroup;
use strict;
use vars qw(@ISA);
@ISA = qw(Exporter);
=head1 NAME
FS::dbdef_colgroup - Column group objects
=head1 SYNOPSIS
use FS::dbdef_colgroup;
$colgroup = new FS::dbdef_colgroup ( $lol );
$colgroup = new FS::dbdef_colgroup (
[
[ 'single_column' ],
[ 'multiple_columns', 'another_column', ],
]
);
@sql_lists = $colgroup->sql_list;
@singles = $colgroup->singles;
=head1 DESCRIPTION
FS::dbdef_colgroup objects represent sets of sets of columns.
=head1 METHODS
=over 4
=item new
Creates a new FS::dbdef_colgroup object.
=cut
sub new {
my($proto, $lol) = @_;
my $class = ref($proto) || $proto;
my $self = {
'lol' => $lol,
};
bless ($self, $class);
}
=item sql_list
Returns a flat list of comma-separated values, for SQL statements.
=cut
sub sql_list { #returns a flat list of comman-separates lists (for sql)
my($self)=@_;
grep $_ ne '', map join(', ', @{$_}), @{$self->{'lol'}};
}
=item singles
Returns a flat list of all single item lists.
=cut
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'}};
}
=back
=head1 BUGS
=head1 SEE ALSO
L<FS::dbdef_table>, L<FS::dbdef_unique>, L<FS::dbdef_index>,
L<FS::dbdef_column>, L<FS::dbdef>, L<perldsc>
=head1 HISTORY
class for dealing with groups of groups of columns (used as a base class by
FS::dbdef_{unique,index} )
ivan@sisd.com 98-apr-19
added singles, fixed sql_list to skip empty lists ivan@sisd.com 98-jun-2
untaint things we're returning in sub singels ivan@sisd.com 98-jun-4
pod ivan@sisd.com 98-sep-24
=cut
1;
|