| … | … | ||
|---|---|---|---|
| 92 | } | 92 | } |
| 93 | } | 93 | } |
| 94 | 94 | ||
| 95 | if (my $play = $ev->{play}) { | 95 | if (my $play = $ev->{play}) { |
| 96 | &::audio_music_set ($self->{songs} = [map $self->{music_map}{$_}, @$play]); | 96 | &::audio_music_set ($self->{songs} = [map $self->{music_map}{$_}, @$play]); |
| 97 | use Data::Dumper; | ||
| 98 | warn Dumper $self->{songs};#d# | ||
| 99 | } | 97 | } |
| 100 | }); | 98 | }); |
| 101 | 99 | ||
| 102 | $self->connect_ext (event_capabilities => sub { | 100 | $self->connect_ext (event_capabilities => sub { |
| 103 | my ($cap) = @_; | 101 | my ($cap) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |