#!/usr/bin/env perl6

use v6;

class Foo {
    has Str $.emoji = '🐈=';
    submethod TWEAK {
        say self.emoji;
    }
}

class Bar is Foo {
    my Str $.emoji = '🐩=';
}

my $foo = Foo.new;
say $foo.emoji;
my $bar = Bar.new;
say $bar.emoji;