use Xchat;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
use constant { COLOR_TAG => "\00307" };
}
BEGIN {
- eval "sub $_ { my \$ph = \$_[0]; *\$ph->{$_} }" for @attributes;
+ local $@;
+ eval "sub $_ { my \$ph = \$_[0]; *\$ph->{$_} }; 1" or die $@ for @attributes;
}
sub 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;