Just say no to indirect object notation

diff --git a/Xchat/XPI.pm b/Xchat/XPI.pm
index f71bb1e84efcaf1cd77c83eaba6f433f8f481d52..032957dcabe1ff8802e7785d9e3c9a88715bce89 100644 (file)
--- a/Xchat/XPI.pm
+++ b/Xchat/XPI.pm
@@ -155,10 +155,12 @@ sub PRINT { shift->print(@_) }
 
 sub PRINTF { shift->printf(@_) }
 
-my $ph = new __PACKAGE__, name   => 'Extended Xchat Perl Interface',
-                          desc   => 'Adds extended support for Perl scripts',
-                          author => 'Vincent Pit (VPIT)',
-                          email  => 'perl@profvince.com',
-                          url    => 'http://www.profvince.com';
+my $ph = __PACKAGE__->new(
+ name   => 'Extended Xchat Perl Interface',
+ desc   => 'Adds extended support for Perl scripts',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm
index b26f784ff6e1161b076786e7d7c0a10f16f1f7b5..bb4eac1efe53d9ac6402ef7ab2738cc0b5a5ea11 100644 (file)
--- a/Xchat/XPI/Events.pm
+++ b/Xchat/XPI/Events.pm
@@ -54,11 +54,13 @@ our %EXPORT_TAGS    = (
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 
-$ph = new Xchat::XPI name   => 'Extended Xchat Perl Interface :: Events',
-                     tag    => 'XPI::Events',
-                     desc   => 'More events handlers',
-                     author => 'Vincent Pit (VPIT)', 
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Extended Xchat Perl Interface :: Events',
+ tag    => 'XPI::Events',
+ desc   => 'More events handlers',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/Xchat/XPI/Net.pm b/Xchat/XPI/Net.pm
index 56cd68f6a64fff12cb762a462e8bf97f0c405a8d..285e11a9a3be0f45d125ad9d246242cf2805e491 100644 (file)
--- a/Xchat/XPI/Net.pm
+++ b/Xchat/XPI/Net.pm
@@ -117,11 +117,13 @@ our %EXPORT_TAGS    = ('funcs' => [ qw/resolve whois/ ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 
-$ph = new Xchat::XPI name   => 'Extended Xchat Perl Interface :: Net',
-                     tag    => 'XPI::Net',
-                     desc   => 'Asynchronous network tools',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Extended Xchat Perl Interface :: Net',
+ tag    => 'XPI::Net',
+ desc   => 'Asynchronous network tools',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/Xchat/XPI/Utils.pm b/Xchat/XPI/Utils.pm
index 1cb3ade86e60d37d849b49dfff77029b06c79ce5..30f31c633fd923a664d4efbf4f2864a06d9f2467 100644 (file)
--- a/Xchat/XPI/Utils.pm
+++ b/Xchat/XPI/Utils.pm
@@ -29,11 +29,13 @@ our %EXPORT_TAGS    = ('funcs' => [ qw/dye_nick/ ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
  
-$ph = new Xchat::XPI name   => 'Extended Xchat Perl Interface :: Utils',
-                     tag    => 'XPI::Utils',
-                     desc   => 'Utility functions',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Extended Xchat Perl Interface :: Utils',
+ tag    => 'XPI::Utils',
+ desc   => 'Utility functions',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/clones.pl b/clones.pl
index a8b01fb24b868f6c3f29bd9502c0ea5d69bfd5fd..c735c884a45c1ad388c65b06fe388e2ee60f9d52 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -256,12 +256,14 @@ hook_command 'CLSCAN', sub {
  help_text => 'Scan for clones in the current channel'
 };
 
-$ph = new Xchat::XPI name   => 'Clones scanner',
-                     tag    => 'Clones',
-                     desc   => 'Automatic & on-demand clones scanner',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com',
-                     unload => sub { undef %users };
+$ph = Xchat::XPI->new(
+ name   => 'Clones scanner',
+ tag    => 'Clones',
+ desc   => 'Automatic & on-demand clones scanner',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+ unload => sub { undef %users },
+);
 
 1;

diff --git a/hl.pl b/hl.pl
index f652643c37160f6a22698536a248dc28178a0b43..fdaaf5cb89477d755e54fc52d7b37c39b0a3539c 100755 (executable)
--- a/hl.pl
+++ b/hl.pl
@@ -84,12 +84,14 @@ filter 'Channel Action Hilight' => sub {
  }
 } => '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;
 

diff --git a/mpd.pl b/mpd.pl
index 440fea7702f2e8563647f93be546564ed867eb75..ca732888f329a3a807dd3b2485e6b5c77fd68be2 100755 (executable)
--- a/mpd.pl
+++ b/mpd.pl
@@ -52,11 +52,13 @@ hook_command $_, sub {
  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';
+$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;

diff --git a/net.pl b/net.pl
index eefa83c79fc59432c4049c5c3af719cda2b31021..bcb9002814e1979e5acbc7fa7888b3980065afa3 100755 (executable)
--- a/net.pl
+++ b/net.pl
@@ -132,11 +132,13 @@ hook_command 'TLD', sub {
  help_text => 'TLD <hostname(s)>, give the TLD text representation of the hosts'
 };
 
-$ph = new Xchat::XPI name   => 'Networking tools',
-                     tag    => 'Net',
-                     desc   => 'DNS & Whois clients, TLD names',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Networking tools',
+ tag    => 'Net',
+ desc   => 'DNS & Whois clients, TLD names',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/opers.pl b/opers.pl
index 2500f83441e09f1bce7fb2d87c34efba16550ba5..6beaf93aaa87a877f61339b79f03bf55b2160fb5 100755 (executable)
--- a/opers.pl
+++ b/opers.pl
@@ -94,12 +94,14 @@ hook_command 'OPSCAN', sub {
  help_text => 'OPSCAN, scan for IRC operators in the current channel'
 };
 
-$ph = new Xchat::XPI name   => 'Operators',
-                     tag    => 'Opers',
-                     desc   => 'IRC operators scanner',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com',
-                     unload => sub { undef %opers; };
+$ph = Xchat::XPI->new(
+ name   => 'Operators',
+ tag    => 'Opers',
+ desc   => 'IRC operators scanner',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+ unload => sub { undef %opers },
+);
 
 1;

diff --git a/services.pl b/services.pl
index 10f4fd4355e69b0bf78bfd35fc7b5872411bf58a..8fd3b9065d256cc4baefbafdcb0f658020c2bb33 100755 (executable)
--- a/services.pl
+++ b/services.pl
@@ -94,11 +94,13 @@ hook_command "C$_", \&csmode, {
     'the specified targets (or you if none) on the current channel via ChanServ'
 } for map { $_, "DE$_" } qw/VOICE HALFOP OP PROTECT/;
 
-$ph = new Xchat::XPI name   => 'IRC Services',
-                     tag    => 'Services',
-                     desc   => 'Various IRC services helpers',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'IRC Services',
+ tag    => 'Services',
+ desc   => 'Various IRC services helpers',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;

diff --git a/tools.pl b/tools.pl
index bf6af1804e4f3e6456d79e88646a9fd2c65ccd84..b554d4a7fc16ab636beb86b5563e76b1caac0017 100755 (executable)
--- a/tools.pl
+++ b/tools.pl
@@ -140,11 +140,13 @@ hook_command 'HGREP', sub {
  help_text => 'HGREP <text>, print users in the current context whose hostname matches text'
 };
 
-$ph = new Xchat::XPI name   => 'Misc tools',
-                     tag    => 'Tools',
-                     desc   => 'Perl interpretor, URI escaper',
-                     author => 'Vincent Pit (VPIT)',
-                     email  => 'perl@profvince.com',
-                     url    => 'http://www.profvince.com';
+$ph = Xchat::XPI->new(
+ name   => 'Misc tools',
+ tag    => 'Tools',
+ desc   => 'Perl interpretor, URI escaper',
+ author => 'Vincent Pit (VPIT)',
+ email  => 'perl@profvince.com',
+ url    => 'http://www.profvince.com',
+);
 
 1;