Q4M取り扱う所を Queue::Q4M 使って楽しようと思ったのだが、Queue::Q4M はそれ単体で使わないとqueue_abortとか呼びまくりそうな実装だったので、全部自分でハンドリングしたった。 use Data::Model::Driver::Queue::Q4M; my $driver = Data::Model::Driver::Queue::Q4M->new( dsn => 'dbi:mysql:database=test', username => '', password => '', timeout => 60, # queue_wait timeout ); { package MyQueue; use base 'Data::Model::Extend::Queue::Q4M'; use Data::Model::Schema; base_driver $dr