NAME
DBIx::UpdateTable::FromHoH - Update database table from hash-of-hash
VERSION
This document describes version 0.002 of DBIx::UpdateTable::FromHoH (from Perl distribution DBIx-UpdateTable-FromHoH), released on 2020-05-06.
DESCRIPTION
Currently only tested on SQLite.
FUNCTIONS
update_table_from_hoh
Usage:
update_table_from_hoh(%args) -> [status, msg, payload, meta]
Update database table from hash-of-hash.
Given a table t1
like this:
id col1 col2 col3
-- ---- ---- ----
1 a b foo
2 c c bar
3 g h qux
this code:
my $res = update_table_from_hoh(
dbh => $dbh,
table => 't1',
key_column => 'id',
hoh => {
1 => {col1=>'a', col2=>'b'},
2 => {col1=>'c', col2=>'d'},
4 => {col1=>'e', col2=>'f'},
},
);
will perform these SQL queries:
UPDATE TABLE t1 SET col2='d' WHERE id='2';
INSERT INTO t1 (id,col1,col2) VALUES (4,'e','f');
DELETE FROM t1 WHERE id='3';
to make table t1
become like this:
id col1 col2 col3
-- ---- ---- ----
1 a b foo
2 c d bar
4 e f qux
This function is not exported by default, but exportable.
Arguments ('*' denotes required arguments):
data_columns => array[str]
dbh* => obj
extra_insert_columns => hos
extra_update_columns => hos
hoh* => hoh
key_column* => str
table* => str
use_tx => bool (default: 1)
Returns an enveloped result (an array).
First element (status) is an integer containing HTTP status code (200 means OK, 4xx caller error, 5xx function error). Second element (msg) is a string containing error message, or 'OK' if status is 200. Third element (payload) is optional, the actual result. Fourth element (meta) is called result metadata and is optional, a hash that contains extra information.
Return value: (any)
HOMEPAGE
Please visit the project's homepage at https://metacpan.org/release/DBIx-UpdateTable-FromHoH.
SOURCE
Source repository is at https://github.com/perlancar/perl-DBIx-UpdateTable-FromHoH.
BUGS
Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=DBIx-UpdateTable-FromHoH
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
SEE ALSO
DBIx::Compare to compare database contents.
diffdb from App::diffdb which can compare two database (schema as well as content) and display the result as the familiar colored unified-style diff.
AUTHOR
perlancar <perlancar@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2020 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.