#!/usr/bin/perl6
use v6;

class User is rw {
  has Int $.id;
  has Str $.username;
}

my $Paul = User.new;
$Paul.id = "sa";
$Paul.username = 12;

say $Paul.id;
say $Paul.username;