Chat server: Difference between revisions
→{{header|Perl 6}}
Line 1,712:
broadcast "--- %s left ---", $name;
%connections{$name}:delete;
$conn.close ;
}
QUIT {
default {
say "oh no, $_";
}
}
}
| |||