/macosx-10.9.5/CPANInternal-140/Class-DBI-v3.0.17/lib/Class/ |
H A D | DBI.pm | 45 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 D | ColumnGrouper.pm | 12 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 D | Query.pm | 128 my ($self, $type, @cols) = @_;
|
/macosx-10.9.5/CPANInternal-140/Class-DBI/lib/Class/ |
H A D | DBI.pm | 44 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 D | ColumnGrouper.pm | 12 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 D | Query.pm | 128 my ($self, $type, @cols) = @_;
|
/macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.05003/lib/DBIx/Class/Schema/Loader/ |
H A D | Base.pm | 1333 # 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 D | DBI.pm | 258 $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 D | SQLite.pm | 70 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 D | mysql.pm | 52 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 D | Base.pm | 2390 # 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 D | RelBuilder.pm | 348 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 D | Informix.pm | 230 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 D | SQLite.pm | 69 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 D | mysql.pm | 91 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 D | ACCESS.pm | 166 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 D | dbixcsl_common_tests.pm | 2224 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 D | Base.pm | 1333 # 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 D | DBI.pm | 258 $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 D | SQLite.pm | 70 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 D | mysql.pm | 52 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 D | AccessorMapping.pm | 8 my ($class, $group, @cols) = @_; 10 foreach my $col (@cols) {
|
H A D | ColumnCase.pm | 8 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 D | ColumnGroups.pm | 26 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 D | GetSet.pm | 10 my ($self, @cols) = @_; 11 if (@cols > 1) { 12 return map { $self->get_column($_) } @cols;
|