Searched refs:cols (Results 1 - 25 of 271) sorted by path

1234567891011

/macosx-10.9.5/CPANInternal-140/Class-DBI-v3.0.17/lib/Class/
H A DDBI.pm45 my @cols = $self->columns('Stringify');
46 @cols = $self->primary_columns unless @cols;
47 return join "/", $self->get(@cols);
246 my @cols = map ref $_ ? $_ : $class->_column_class->new($_), @columns;
250 ->add_group($group => @cols));
251 $class->_mk_column_accessors(@cols);
462 my (@cols) = keys %$vals;
463 @{$self}{@cols} = @{$vals}{@cols};
[all...]
/macosx-10.9.5/CPANInternal-140/Class-DBI-v3.0.17/lib/Class/DBI/
H A DColumnGrouper.pm12 my @cols = $colg->group_cols($group);
112 my @cols = map $self->add_column($_), @names;
113 $_->add_group($group) foreach @cols;
114 $self->{_groups}->{$group} = \@cols;
120 my @colg = $cols->group_cols($group);
121 my @groups = $cols->groups_for(@cols);
135 my ($self, @cols) = @_;
136 return _uniq(map $_->groups, @cols);
141 my @cols
[all...]
H A DQuery.pm128 my ($self, $type, @cols) = @_;
/macosx-10.9.5/CPANInternal-140/Class-DBI/lib/Class/
H A DDBI.pm44 my @cols = $self->columns('Stringify');
45 @cols = $self->primary_columns unless @cols;
46 return join "/", $self->get(@cols);
482 my (@cols) = keys %$vals;
483 @{$self}{@cols} = @{$vals}{@cols};
836 my @cols = $self->_find_columns(@_);
837 return $self->_croak("Can't get() nothing!") unless @cols;
839 if (my @fetch_cols = grep !$self->_attribute_exists($_), @cols) {
[all...]
/macosx-10.9.5/CPANInternal-140/Class-DBI/lib/Class/DBI/
H A DColumnGrouper.pm12 my @cols = $colg->group_cols($group);
110 my @cols = map $self->add_column($_), @names;
111 $_->add_group($group) foreach @cols;
112 $self->{_groups}->{$group} = \@cols;
118 my @colg = $cols->group_cols($group);
119 my @groups = $cols->groups_for(@cols);
133 my ($self, @cols) = @_;
134 return _uniq(map $_->groups, @cols);
139 my @cols
[all...]
H A DQuery.pm128 my ($self, $type, @cols) = @_;
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.05003/lib/DBIx/Class/Schema/Loader/
H A DBase.pm1333 # Set up metadata (cols, pks, etc)
1352 my $cols = $self->_table_columns($table);
1356 $self->_dbic_stmt($table_class,'add_columns',@$cols);
1378 map { $_, ($col_info->{$_}||{}) } @$cols
1391 my ($name, $cols) = @$_;
1392 next if $uniq_tag{ join("\0", @$cols) }++; # skip duplicates
1393 $self->_dbic_stmt($table_class,'add_unique_constraint', $name, $cols);
1544 my @cols = @_;
1545 while( my ($name,$attrs) = splice @cols,0,2 ) {
H A DDBI.pm258 $rels{$relid}->{cols}->{$uk_col} = $fk_col;
265 remote_columns => [ keys %{$rels{$relid}->{cols}} ],
266 local_columns => [ values %{$rels{$relid}->{cols}} ],
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.05003/lib/DBIx/Class/Schema/Loader/DBI/
H A DSQLite.pm70 my $cols = $1;
73 $cols =~ s/\-\-.*\n/\n/g;
77 my $cols_no_bracketed_commas = $cols;
79 ( extract_bracketed( $cols, "()", "[^(]*" ) )[0] )
110 my $cols = $1;
111 $cols =~ s/\s+$//;
112 my @cols = map { lc } split(/\s*,\s*/, $cols);
113 my $name = join(q{_}, @cols) . '_unique';
114 push(@uniqs, [ $name => \@cols ]);
[all...]
H A Dmysql.pm52 my $cols = shift @reldata;
56 my @cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
57 split(/\s*,\s*/, $cols);
63 local_columns => \@cols,
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.07033/lib/DBIx/Class/Schema/Loader/
H A DBase.pm2390 # Set up metadata (cols, pks, etc)
2402 my $cols = $self->_table_columns($table);
2447 my ($name, $cols) = @$uniq;
2448 next if $uniq_tag{ join("\0", @$cols) }++; # skip duplicates
2449 push @uniqs, [$name, $cols];
2479 map { $_, ($col_info->{$_}||{}) } @$cols
2490 my ($name, $cols) = @$uniq;
2491 $self->_dbic_stmt($table_class,'add_unique_constraint', $name, $cols);
2750 my @cols = @_;
2751 while( my ($name,$attrs) = splice @cols,
[all...]
H A DRelBuilder.pm348 my ($self, $moniker, $cols, $relname) = @_;
369 Relationship '$relname' in source '$moniker' for columns '@{[ join ',', @$cols ]}' collides with an inherited method. Renaming to '$new_relname'.
649 my ($self, @cols) = @_;
653 foreach my $col (@cols) {
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.07033/lib/DBIx/Class/Schema/Loader/DBI/
H A DInformix.pm230 my $cols = $self->_colnames_by_colno($table);
234 $constraints->{$constr_name} = $self->_idx_colnames($idx_def, $cols);
261 my $cols = $sth->fetchall_hashref('colno');
262 $cols = { map +($_, $self->_lc($cols->{$_}{colname})), keys %$cols };
264 return $cols;
375 my $cols = $sth->fetchall_hashref('colname');
378 while (my ($col, $info) = each %$cols) {
H A DSQLite.pm69 my $cols = $sth->fetchall_hashref('name');
73 my %cols;
74 while (my ($col, $info) = each %$cols) {
75 $cols{ $self->_lc($col) } = $info;
84 if ($cols{$col_name}{pk}) {
86 if (lc($cols{$col_name}{type}) eq 'integer') {
216 my @cols;
218 push @cols, $self->_lc($idx_row->{name});
224 $name = (join '_', @cols) . '_unique';
226 push @uniqs, [ $name => \@cols ];
[all...]
H A Dmysql.pm91 my ($cols, $f_schema, $f_table, $f_cols, $rest) = splice @reldata, 0, 5;
93 my @cols = map { s/$qt//g; $self->_lc($_) }
94 split(/$qt?\s*$qt?,$qt?\s*$qt?/, $cols);
159 local_columns => \@cols,
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.07033/lib/DBIx/Class/Schema/Loader/DBI/ODBC/
H A DACCESS.pm166 my $cols = $self->_adox_catalog->Tables->Item($table->name)->Columns;
168 for my $col_idx (0..$cols->Count-1) {
169 $col_obj = $cols->Item($col_idx);
215 my $cols = $idx->Columns;
216 for my $col_idx (0..$cols->Count-1) {
217 push @keydata, $self->_lc($cols->Item($col_idx)->Name);
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.07033/t/lib/
H A Ddbixcsl_common_tests.pm2224 my $cols = $tests->{columns}{$table_moniker} = {};
2266 $cols->{$col_name} = $expected_info;
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/
H A DBase.pm1333 # Set up metadata (cols, pks, etc)
1352 my $cols = $self->_table_columns($table);
1356 $self->_dbic_stmt($table_class,'add_columns',@$cols);
1378 map { $_, ($col_info->{$_}||{}) } @$cols
1391 my ($name, $cols) = @$_;
1392 next if $uniq_tag{ join("\0", @$cols) }++; # skip duplicates
1393 $self->_dbic_stmt($table_class,'add_unique_constraint', $name, $cols);
1544 my @cols = @_;
1545 while( my ($name,$attrs) = splice @cols,0,2 ) {
H A DDBI.pm258 $rels{$relid}->{cols}->{$uk_col} = $fk_col;
265 remote_columns => [ keys %{$rels{$relid}->{cols}} ],
266 local_columns => [ values %{$rels{$relid}->{cols}} ],
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/
H A DSQLite.pm70 my $cols = $1;
73 $cols =~ s/\-\-.*\n/\n/g;
77 my $cols_no_bracketed_commas = $cols;
79 ( extract_bracketed( $cols, "()", "[^(]*" ) )[0] )
110 my $cols = $1;
111 $cols =~ s/\s+$//;
112 my @cols = map { lc } split(/\s*,\s*/, $cols);
113 my $name = join(q{_}, @cols) . '_unique';
114 push(@uniqs, [ $name => \@cols ]);
[all...]
H A Dmysql.pm52 my $cols = shift @reldata;
56 my @cols = map { s/(?: \Q$self->{_quoter}\E | $qt )//x; lc $_ }
57 split(/\s*,\s*/, $cols);
63 local_columns => \@cols,
/macosx-10.9.5/CPANInternal-140/DBIx-Class/lib/DBIx/Class/CDBICompat/
H A DAccessorMapping.pm8 my ($class, $group, @cols) = @_;
10 foreach my $col (@cols) {
H A DColumnCase.pm8 my ($class, $group, @cols) = @_;
9 return $class->next::method($group => map lc, @cols);
13 my ($class, @cols) = @_;
14 return $class->result_source_instance->add_columns(map lc, @cols);
H A DColumnGroups.pm26 my ($class, $group, @cols) = @_;
27 $class->mk_group_accessors(column => @cols);
28 $class->add_columns(@cols);
29 $class->_register_column_group($group => @cols);
33 my ($class, @cols) = @_;
34 $class->result_source_instance->add_columns(@cols);
38 my ($class, $group, @cols) = @_;
45 $class->set_primary_key(@cols);
46 $groups->{'Essential'}{$_} ||= 1 for @cols;
51 $groups->{'Primary'}{$cols[
[all...]
H A DGetSet.pm10 my ($self, @cols) = @_;
11 if (@cols > 1) {
12 return map { $self->get_column($_) } @cols;

Completed in 277 milliseconds

1234567891011