my @attributes;
BEGIN {
- @attributes = qw/tag name version desc author email url banner/;
+ @attributes = qw<tag name version desc author email url banner>;
}
local *PH;
*$ph->{$_} = $opts{$_} for @attributes;
*$ph->{buf} = '';
- Xchat::register(@opts{qw/name version banner/}, sub {
+ Xchat::register(@opts{qw<name version banner>}, sub {
$ph->flush;
if (*$ph->{atexit_id}) {
my @callbacks = sort { *$ph->{atexit}{$b} <=> *$ph->{atexit}{$a} }
use strict;
use warnings;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
return hook_print $from, \&_filter_cb, { data => \@_ };
}
-use base qw/Exporter/;
+use base qw<Exporter>;
our @EXPORT = ();
our %EXPORT_TAGS = (
- 'funcs' => [ qw/delay filter/ ],
- 'consts' => [ qw/DEFAULT_DELAY/ ]
+ 'funcs' => [ qw<delay filter> ],
+ 'consts' => [ qw<DEFAULT_DELAY> ]
);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
use Net::DNS;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
-use Xchat::XPI qw/register init/;
+use Xchat::XPI qw<register init>;
our $VERSION = '0.03';
return REMOVE;
}
-use base qw/Exporter/;
+use base qw<Exporter>;
our @EXPORT = ();
-our %EXPORT_TAGS = ('funcs' => [ qw/resolve whois/ ]);
+our %EXPORT_TAGS = ('funcs' => [ qw<resolve whois> ]);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
use strict;
use warnings;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
-use Xchat::XPI qw/register init/;
+use Xchat::XPI qw<register init>;
our $VERSION = '0.02';
return sprintf "\003%d%s", $rcolors[$col], $nick;
}
-use base qw/Exporter/;
+use base qw<Exporter>;
our @EXPORT = ();
-our %EXPORT_TAGS = ('funcs' => [ qw/dye_nick/ ]);
+our %EXPORT_TAGS = ('funcs' => [ qw<dye_nick> ]);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
use strict;
use warnings;
-use Scalar::Util qw/dualvar/;
+use Scalar::Util qw<dualvar>;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
-use Xchat::XPI::Events qw/delay/;
+use Xchat::XPI::Events qw<delay>;
use constant {
JOIN_DELAY => 1000,
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.04';
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
rgit-
subs-auto
\bwith-
- / ],
+ > ],
);
for (keys %hl) {
use Audio::MPD;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
return EAT_ALL;
}, {
help_text => "$_, output which song is currently played by mpd"
-} for qw/MPD NP/;
+} for qw<MPD NP>;
$ph = Xchat::XPI->new(
name => 'MPD Client',
use strict;
use warnings;
-use List::Util qw/max/;
-use Locale::Country qw/code2country/;
+use List::Util qw<max>;
+use Locale::Country qw<code2country>;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
-use Xchat::XPI::Net qw/resolve whois/;
+use Xchat::XPI::Net qw<resolve whois>;
our $VERSION = '0.02';
use strict;
use warnings;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
use strict;
use warnings;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;
data => $_,
help_text => join ' ', $_, '[nicks] ,', (lc $_),
'the specified targets (or you if none) on the current channel via ChanServ'
-} for map { $_, "DE$_" } qw/VOICE HALFOP OP PROTECT/;
+} for map { $_, "DE$_" } qw<VOICE HALFOP OP PROTECT>;
$ph = Xchat::XPI->new(
name => 'IRC Services',
use warnings;
use Data::Dumper;
-use Encode qw/encode/;
+use Encode qw<encode>;
-use Xchat qw/:all/;
+use Xchat qw<:all>;
use lib get_info 'xchatdir';
use Xchat::XPI;