use 5.019;

use Data::Dumper;

use Pdbc;

# モジュールを動的に生成
BEGIN {
	struct 'Hoge', [ 'id', 'name', 'flg' ];
}

# データベースへの接続
my $manager = Pdbc::connect('Pg', 'dbname=test;host=localhost', "postgres");
# テーブルの作成
$manager->create(Hoge->new('INTEGER', 'TEXT', 'BOOLEAN'))->execute();
# データの挿入
$manager->insert(Hoge->new(1, 'name_1', 1))->execute();
$manager->insert(Hoge->new(2, 'name_2', 0))->execute();
# データの取得（リスト）
my $rows = $manager->from(Hoge)->list();
for my $row ($rows) {
	say Dumper $row;
}
$manager->from(Hoge)->where( Pdbc::Where->new( 'name', 'name', LIKE ) )->list();
# データの取得（一意）
my $row = $manager->from(Hoge)->where( Pdbc::Where->new( 'id', 1, EQUAL ) )->single_result();
say Dumper $row;
# データの更新
$row->{flg} = 0;
$manager->update($row)->where( Pdbc::Where->new('id', $row->{id}, EQUAL) )->execute();
# データの削除
$manager->from(Hoge)->where( Pdbc::Where->new( 'id', 1, EQUAL ) )->delete()->execute();
# テーブルの削除
$manager->drop(Hoge)->execute();
# SQLの取得
my $create_sql = $manager->create(Hoge->new('INTEGER', 'TEXT', 'BOOLEAN'))->get_sql();
my $insert_sql = $manager->insert(Hoge->new(1, 'name_1', 1))->get_sql();
my $update_sql = $manager->update(Hoge->new(1, 'name_1', 0))->where( Pdbc::Where->new( 'id', 1, EQUAL ) )->get_sql();
my $delete_sql = $manager->from(Hoge)->where( Pdbc::Where->new( 'id', 1, EQUAL ) )->delete()->get_sql();
my $drop_sql = $manager->drop(Hoge)->get_sql();

BEGIN {
    struct 'Hoge', [ 'id, 'name', 'flg' ];
}

package Hoge;

use 5.019;
use feature 'signatures';
no warnings 'experimental::signatures';

sub new($pkg, $id, $name, $flg) {
    my $self = {
        id => $id,
        name => $name,
        flg => $flg
    };
    return bless $self, ref($pkg) || $pkg;
}
1;

sub Test {
	return bless [ 'id', 'name', 'flg' ], 'Hoge';
}

Pdbc::Where->new('column_1', 'value_1', EQUAL)
    ->and(Pdbc::Where->new('column_2', IS_NULL)
        ->or(Pdbc::Where->new('column_2', 'value_2', LIKE)))
    ->and(Pdbc::Where->new('column_3', 'value_3', EQUAL));

$manager->begin;

$manager->commit;

$manager->rollback;