Skip to content

Commit

Permalink
Small tweaks to un-bitrot classtut's first example.
Browse files Browse the repository at this point in the history
Some of these tweaks may change the message that the example is
sending, so this commit is mostly to show a changeset to the fine
people of #perl6 for feedback.
  • Loading branch information
kanatohodets committed Jun 20, 2014
1 parent bcf69ec commit e115f9f
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions lib/Language/classtut.pod
Expand Up @@ -13,11 +13,11 @@ result is interesting and, at times, useful.
=begin code
class Task {
has &!callback;
has Task @!dependencies;
has &.callback;
has Task @.dependencies;
has Bool $.done;
method new(&callback, Task *@dependencies) {
method new(&callback, *@dependencies) {
return self.bless(:&callback, :@dependencies);
}
Expand All @@ -27,8 +27,8 @@ result is interesting and, at times, useful.
method perform() {
unless $!done {
.perform() for @!dependencies;
&!callback();
.perform() for @.dependencies;
&.callback.();
$!done = True;
}
}
Expand Down

0 comments on commit e115f9f

Please sign in to comment.