Perl6多线程1 Thread : new / run

sub A($name = 3) {
  #默认参数
  say $name;
}
sub B(:name($name)) {
  #默认参数为 any
  say $name;
}
A();
A(100);
B();
B(name => 'root');

sub A($name) {
  #默认参数
  say $name;
}
sub B() {
  say 'BBBBBBBB';
}
A(1);
B;
B();
&A(123);
&B();

sub A($name) {
  #默认参数
  say $name;
}
sub B() {
  say 'BBBBBBBB';
}
say &A;
say &A(123);
say &B;
say &B();

sub A($name) {
  #默认参数
  say $name;
  $name();
}
sub B() {
  say 'BBBBBBBB';
}

A(&B);

sub A(&name) {
  #默认参数
  say &name;
  #$name();
}
sub B() {
  say 'BBBBBBBB';
}

A('B');

#输出:
C:\p6>perl6 t.p6
Type check failed in binding to parameter '&name'; expected Callable but got Str
 ("B")
  in sub A at t.p6 line 1
  in block <unit> at t.p6 line 10

sub A(&name) {
  #默认参数
  say &name;
  &name();
}
sub B() {
  say 'BBBBBBBB';
}

A(sub test {say 'abc';});

sub A(&name) {
  #默认参数
  say &name;
  &name();
}
sub B() {
  say 'BBBBBBBB';
}

A(sub test {say 'abc';});
A(&B);
#输出:
C:\p6>perl6 t.p6
sub test () { #`(Sub|89260968) ... }
abc
sub B () { #`(Sub|89261120) ... }
BBBBBBBB

C:\p6>

method new(:&code!, Bool :$app_lifetime = False, Str :$name = '<anon>' --> Thread:D)

code => 代码块
code => &B
code => {say 'Thread';}

sub B() {
  for 1..5 {
    say $_;
    sleep(2);
  }
  say "线程退出!";
}

my $t = Thread.new(code => &B, :app_lifetime, :name<thread_B>);
$t.run;
say "主进程退出!";

C:\p6>perl6 t.p6
主进程退出!

C:\p6>

sub B() {
  for 1..5 {
    say $_;
    sleep(2);
  }
  say "线程退出!";
}

my $t = Thread.new(code => &B, :!app_lifetime, :name<thread_B>);
$t.run;
say "主进程退出!";

C:\p6>perl6 t.p6
主进程退出!
1
2
3
4
5
线程退出!

C:\p6>