Select Code to Download

Select or download this

use Red;

...
    has $.user is relationship(*.id, :model<User>);
}

Select or download this

#!/usr/bin/raku

...
my $*RED-DB = database "Pg", :user<vmail_user>, :dbname<vmail>, :passw
+ord<--redacted-->;
my $user = User.^create( username => 'Bill' );
print "*** DONE ***\n";

Select or download this

 
# \d user
                          Table "public.user"
...
Foreign-key constraints:
    "vmail_user_id_fkey" FOREIGN KEY (user_id) REFERENCES "user"(id)

Select or download this

Could not find Vmail in:
    file#/var/www/apps/raku/vmail/lib
...
  in method <anon> at /opt/rakudo-pkg/share/perl6/site/sources/C6C0BDE
+B2D9A3E5141D8CD425806A5162AFE5DE9 (MetamodelX::Red::Relationship) lin
+e 58
  in method create at /opt/rakudo-pkg/share/perl6/site/sources/A963FC4
+C1C5D6923CAA0DC1451EE51EA254DA1ED (MetamodelX::Red::Model) line 483
  in block <unit> at test_red.raku line 9