Perl 6 Deep Dive

Printing thread objects as a string

The Str method of the Thread class defines the behavior when the thread object is being printed, via the say function:

my $t1 = Thread.start(name => 'My thread one', sub {});my $t2 = Thread.start(name => 'My thread two', sub {});my $t3 = Thread.start(name => 'My thread three', sub {});say $*THREAD;say $t1;say $t2;say $t3;

The default string contains the number of the thread and its name (if it is defined).

Thread #1 (Initial thread)Thread #3 (My thread one)Thread #4 (My thread two)Thread #5 (My thread three)

In this example, all the threads have different IDs (they are always different) and different names (this is defined by the programmer).