view release on metacpan or  search on metacpan

lib/DBIx/Raw.pm  view on Meta::CPAN

1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
        age => '32',
        favorite_color => 'blue',
    );
 
    my $num_rows_updated = $db->update(href => \%updated_person, table => 'people', id => 1, encrypt => ['name', 'favorite_color']);
 
Note we do not ecnrypt age because it is most likely stored as an integer in the database.
 
=cut
 
sub update {
        my $self = shift;
        my $params = $self->_params(@_);
 
        croak "href and table are required for update" unless $params->{href} and $params->{table};
 
        my @vals;
        my $string = '';
    my @encrypt;
        while(my ($key,$val) = each %{$params->{href}}) {
                my $append = '?';