… | … | ||
---|---|---|---|
60 | 60 | ||
61 | $cmd eq "selection:rot13" | 61 | $cmd eq "selection:rot13" |
62 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); | 62 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
63 | 63 | ||
64 | () | 64 | () |
65 | } | ||
66 | |||
67 | sub on_keyboard_dispatch { | ||
68 | &on_user_command; | ||
65 | } | 69 | } |
66 | 70 | ||
67 | sub on_init { | 71 | sub on_init { |
68 | my ($self) = @_; | 72 | my ($self) = @_; |
69 | 73 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |