use strict;
use warnings;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
-use Xchat::XPI::Events qw/filter/;
+use Xchat::XPI::Events qw<filter>;
-our $VERSION = '0.02';
+our $VERSION = '0.04';
my $ph;
hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
my %hl = (
- '#cpantesters' => [ qw/
+ '#cpantesters' => [ qw<
Acme-CPANAuthors-You-re_using
B-RecDeparse
+ Bit-MorseSignals
CPANPLUS-Dist-Gentoo
+ IPC-MorseSignals
Lexical-Types
Linux-SysInfo
- MorseSignals
Perl-Critic-Policy-Dynamic-NoIndirect
Regexp-Wildcards
Scalar-Vec-Util
Scope-Upper
Sub-Nary
+ Sub-Op
Sub-Prototype-Util
Test-Valgrind
Thread-Cleanup
Variable-Magic
+ autovivification-
indirect-
rgit-
subs-auto
- with-
- / ],
+ \bwith-
+ > ],
);
for (keys %hl) {
}
} => 'Channel Action';
-$ph = new Xchat::XPI name => 'Smart highlighting',
- tag => 'HL',
- desc => 'Highlight on private messages',
- author => 'Vincent Pit (VPIT)',
- email => 'perl@profvince.com',
- url => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name => 'Smart highlighting',
+ tag => 'HL',
+ desc => 'Highlight on private messages',
+ author => 'Vincent Pit (VPIT)',
+ email => 'perl@profvince.com',
+ url => 'http://www.profvince.com',
+);
1;