Don't create a plugin object for modules

diff --git a/Xchat/XPI.pm b/Xchat/XPI.pm
index 2c42115dee05bdfac6611f05bf9c298de9629652..f06e15970c6530623e1fc0918c675db131171a94 100644 (file)
--- a/Xchat/XPI.pm
+++ b/Xchat/XPI.pm
@@ -7,7 +7,7 @@ use Tie::RefHash;
 
 use Xchat;
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 use constant { COLOR_TAG => "\00307" };
 
@@ -125,12 +125,4 @@ sub PRINT  { shift->print(@_) }
 
 sub PRINTF { shift->printf(@_) }
 
-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 bb4eac1efe53d9ac6402ef7ab2738cc0b5a5ea11..b0211c2bf8927f8d4ede911a6dcfc82df298c5d3 100644 (file)
--- a/Xchat/XPI/Events.pm
+++ b/Xchat/XPI/Events.pm
@@ -12,9 +12,7 @@ use constant {
  DEFAULT_DELAY => 1000
 };
 
-our $VERSION = '0.03';
-
-my $ph;
+our $VERSION = '0.04';
 
 sub delay {
  my $d = shift;
@@ -54,13 +52,4 @@ our %EXPORT_TAGS    = (
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 
-$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 285e11a9a3be0f45d125ad9d246242cf2805e491..a7b267927059493c6d1060381db1f9a28071bc5c 100644 (file)
--- a/Xchat/XPI/Net.pm
+++ b/Xchat/XPI/Net.pm
@@ -12,9 +12,9 @@ use Xchat qw/:all/;
 use lib get_info 'xchatdir';
 use Xchat::XPI qw/register init/;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
-my ($ph, $res);
+my $res;
 
 BEGIN {
  $res = Net::DNS::Resolver->new;
@@ -117,13 +117,4 @@ our %EXPORT_TAGS    = ('funcs' => [ qw/resolve whois/ ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 
-$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 30f31c633fd923a664d4efbf4f2864a06d9f2467..6fa15c1e4524ea9f6f0c94d56f5d08bb8e28d90f 100644 (file)
--- a/Xchat/XPI/Utils.pm
+++ b/Xchat/XPI/Utils.pm
@@ -8,9 +8,7 @@ use Xchat qw/:all/;
 use lib get_info 'xchatdir';
 use Xchat::XPI qw/register init/;
  
-our $VERSION = '0.01';
-
-my $ph;
+our $VERSION = '0.02';
 
 sub dye_nick {
  my ($nick, $col) = ($_[0], 0);
@@ -29,13 +27,4 @@ our %EXPORT_TAGS    = ('funcs' => [ qw/dye_nick/ ]);
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
  
-$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;