package App::XMMS2::Notifier;
-use v5.14;
+use 5.014000;
use strict;
use warnings;
our $VERSION = 0.001001;
}
sub notify{
- my $id=$xmms->playback_current_id->wait->value or return;
- my $minfo=$xmms->medialib_get_info($id)->wait->value;
+ my ($id, $minfo);
+ eval {
+ $id=$xmms->playback_current_id->wait->value or return;
+ $minfo=$xmms->medialib_get_info($id)->wait->value;
+ } or return;
- my %metadata = map { $_ => exists $minfo->{$_} ? (values $minfo->{$_})[0] : undef } CONVERSION_SPECIFIERS;
+ my %metadata = map { $_ => exists $minfo->{$_} ? (values %{$minfo->{$_}})[0] : undef } CONVERSION_SPECIFIERS;
my $str=$format;
- $str =~ s/\$$_/$metadata{$_}/g for keys %metadata;
+ $str =~ s/\$$_/$metadata{$_}/gs for keys %metadata;
notify_libnotify $str
}
$xmms->loop
}
-1
-
+1;
__END__
=head1 NAME