use Audio::MPD;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
-use lib get_info 'xchatdir';
+use lib get_info 'xchatdir';
use Xchat::XPI;
our $VERSION = 0.04;
return EAT_ALL;
}, {
help_text => "$_, output which song is currently played by mpd"
-} for qw/MPD NP/;
-
-$ph = new Xchat::XPI name => 'MPD Client',
- tag => 'MPD',
- desc => 'Music Player Daemon client',
- author => 'Vincent Pit (VPIT)',
- email => 'perl@profvince.com',
- url => 'http://www.profvince.com';
+} for qw<MPD NP>;
+
+$ph = Xchat::XPI->new(
+ name => 'MPD Client',
+ tag => 'MPD',
+ desc => 'Music Player Daemon client',
+ author => 'Vincent Pit (VPIT)',
+ email => 'perl@profvince.com',
+ url => 'http://www.profvince.com',
+);
1;