Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[bin/crypt] added NoSuchDisk.action

So that the next commit can use it for removing disks, too.
  • Loading branch information...
commit 289fb0c5e150f832916ec68b6aa01baffa318432 1 parent b882552
@masak authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 bin/crypt
6 bin/crypt
@@ -97,9 +97,10 @@ class X::Hanoi::DiskHasBeenRemoved is X::Hanoi {
class X::Hanoi::NoSuchDisk is X::Hanoi {
has $.disk;
+ has $.action;
method message($_:) {
- "Cannot add a {.disk} because there is no such disk"
+ "Cannot {.action} a {.disk} because there is no such disk"
@@ -169,7 +170,7 @@ class Hanoi::Game {
method add($disk, $target) {
- die$disk)
+ die<add>, :$disk)
unless $disk eq any(@disks);
die<target>, :name($target))
unless %!state.exists($target);
@@ -576,6 +577,7 @@ multi MAIN('test', 'hanoi') {
'adding a disk (-) there is no such disk',
+ is .action, 'add', '.action attribute';
is .disk, 'humongous disk', '.disk attribute';
is .message,
'Cannot add a humongous disk because there is no such disk',
Please sign in to comment.
Something went wrong with that request. Please try again.