… | … | ||
---|---|---|---|
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 |