# Pastebin WnlucxEh
perl6 -I. -Iexamples/blog2 -MPost -e '

use Red <red-do>;

red-defaults db1 => database("SQLite", :database<../RedBot/red.db>), db2 => database("SQLite");
#Post.^create-table: :with<db1>;
Post.^create-table: :with<db2>;


.^save: :insert, :with<db2> for Post.^all.with: "db1"; 

.say for Post.^all.with: "db1";
.say for Post.^all.with: "db2";
'
Post.new(id => 1, title => "test1", body => "body-test1", deleted => 0, created => DateTime.new(2019,10,22,12,0,19.196347), tags => Set.new(""))
Post.new(id => 2, title => "Is it working?", body => "I think it is", deleted => 0, created => DateTime.new(2019,10,22,12,12,8.809766), tags => Set.new(""))
Post.new(id => 1, title => "test1", body => "body-test1", deleted => 0, created => DateTime.new(2019,10,22,12,0,19.196347), tags => Set.new(""))
Post.new(id => 2, title => "Is it working?", body => "I think it is", deleted => 0, created => DateTime.new(2019,10,22,12,12,8.809766), tags => Set.new(""))