# NAME Otogiri - A lightweight medicine for using database # SYNOPSIS use Otogiri; my $db = Otogiri->new(connect_info => ['dbi:SQLite:...', '', '']); my $row = $db->insert(book => {title => 'mybook1', author => 'me', ...}); print 'Title: '. $row->{title}. "\n"; my @rows = $db->select(book => {price => {'>=' => 500}}); for my $r (@rows) { printf "Title: %s \nPrice: %s yen\n", $r->{title}, $r->{price}; } $db->update(book => [author => 'oreore'], {author => 'me'}); $db->delete(book => {author => 'me'}); ### insert without row-data in response $db->fast_insert(book => {title => 'someone', ...}); ### using transaction do { my $txn = $db->txn_scope; $db->insert(book => ...); $db->insert(store => ...); $txn->commit; }; # DESCRIPTION Otogiri is a thing that like as ORM. A slogan is "Schema-less, Fat-less". # ATTRIBUTE ## connect\_info (required) connect_info => [$dsn, $dbuser, $dbpass], You have to specify dsn, dbuser, and dbpass, to connect to database. ## inflate (optional) use JSON; inflate => sub { my ($data, $tablename) = @_; if (defined $data->{json}) { $data->{json} = decode_json($data->{json}); } $data->{table} = $tablename; $data; }, You may specify column inflation logic. Specified code is called internally when called select(), search\_by\_sql(), and single(). ## deflate (optional) use JSON; deflate => sub { my ($data, $tablename) = @_; if (defined $data->{json}) { $data->{json} = encode_json($data->{json}); } delete $data->{table}; $data; }, You may specify column deflation logic. Specified code is called internally when called insert(), update(), and delete(). # METHODS ## new my $db = Otogiri->new( connect_info => [$dsn, $dbuser, $dbpass] ); Instantiate and connect to db. Then, it returns [DBIx::Otogiri](http://search.cpan.org/perldoc?DBIx::Otogiri) object. Please see ATTRIBUTE section. # LICENSE Copyright (C) ytnobody. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. # AUTHOR ytnobody # SEE ALSO [DBIx::Otogiri](http://search.cpan.org/perldoc?DBIx::Otogiri) [DBIx::Sunny](http://search.cpan.org/perldoc?DBIx::Sunny) [SQL::Maker](http://search.cpan.org/perldoc?SQL::Maker)