fork(1) download
  1. #!/usr/bin/perl6
  2. class Valute {
  3. has Str $.currency is rw = "test";
  4. has $.fun;
  5.  
  6.  
  7. method fun{
  8. self.currency.say
  9. }
  10.  
  11. }
  12. my $a = Valute.new(a=>"asdf");
  13. $a.fun();
Success #stdin #stdout 0.14s 101696KB
stdin
Standard input is empty
stdout
test