Mojoliciousでイベント駆動型プログラミングしてみた(その2)
· 1 min read
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/env perl
use utf8;
use 5.012;
use Encode;
package Human;
use Mojo::Base 'Mojo::EventEmitter';
sub walk {
my $self = shift;
$self->emit(message => '歩いている。');
$self->emit('walk');
return;
}
sub get_poison {
my $self = shift;
$self->emit(message => '毒を受けた!');
$self->on(walk => sub {
$self->emit(message => "毒のダメージ!");
});
}
sub cure_poison {
my $self = shift;
$self->emit(message => '毒が治った!');
$self->unsubscribe('walk');
}
package main;
my $man = Human->new;
$man->on(message => sub {
say Encode::encode_utf8($_[1]);
});
$man->walk for 1 ..2;
$man->get_poison;
$man->walk for 1 .. 2;
$man->cure_poison;
$man->walk for 1 .. 2;
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/env perl
use utf8;
use 5.012;
use Encode;
package Logger;
use Mojo::Base -base;
sub log {
shift;
say Encode::encode_utf8(join "\n", @_);
}
package Human;
use Mojo::Base -base;
has is_poison => 0;
sub walk {
my $self = shift;
my @results = ('歩いている。');
if ($self->is_poison) {
push @results, '毒のダメージ!';
}
return @results;
}
sub get_poison {
shift->is_poison(1);
return '毒を受けた!';
}
sub cure_poison {
shift->is_poison(0);
return '毒が治った!';
}
package main;
my $man = Human->new;
my $logger = Logger->new;
$logger->log($man->walk) for 1 .. 2;
$logger->log($man->get_poison);
$logger->log($man->walk) for 1 .. 2;
$logger->log($man->cure_poison);
$logger->log($man->walk) for 1 .. 2;
|
Comments
comments powered by Disqus