view release on metacpan or  search on metacpan

lib/Data/Session/Driver/Pg.pm  view on Meta::CPAN

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
        {
                die __PACKAGE__ . ". $_";
        };
 
        return 1;
 
} # End of store.
 
# -----------------------------------------------
 
sub update
{
        my($self, $dbh, $table_name, $id_col_name, $data_col_name, $id, $data) = @_;
        my($sql) = "update $table_name set $data_col_name = ? where $id_col_name = ?";
        my($sth) = $dbh -> prepare($sql);
 
        $sth -> bind_param(1, $data, {pg_type => $self -> pg_bytea ? PG_BYTEA : PG_TEXT});
        $sth -> bind_param(2, $id);
 
        $sth -> execute;
        $sth -> finish;

lib/Data/Session/Driver/SQLite.pm  view on Meta::CPAN

84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
        {
                die __PACKAGE__ . ". $_";
        };
 
        return 1;
 
} # End of store.
 
# -----------------------------------------------
 
sub update
{
        my($self, $dbh, $table_name, $id_col_name, $data_col_name, $id, $data) = @_;
        my($sql) = "update $table_name set $data_col_name = ? where $id_col_name = ?";
        my($sth) = $dbh -> prepare($sql);
 
        $sth -> bind_param(1, $data, SQL_BLOB);
        $sth -> bind_param(2, $id);
 
        $sth -> execute;
        $sth -> finish;