| BBS-UserInfo documentation | Contained in the BBS-UserInfo distribution. |
BBS::UserInfo - Base class of BBS::UserInfo::XXX
use BBS::UserInfo;
my $bot = BBS::UserInfo->new('Ptt', 'server' => 'ptt.cc');
$bot->connect();
my $data = $bot->query('username');
print($data->{'logintimes'});
Gea-Suan Lin, <gslin at gslin.org>
Copyright 2006 Gea-Suan Lin, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| BBS-UserInfo documentation | Contained in the BBS-UserInfo distribution. |
package BBS::UserInfo; use warnings; use strict;
our $VERSION = '0.01';
sub new { my ($class, $style, @params) = @_; require(sprintf('BBS/UserInfo/%s.pm', $style)); return "BBS::UserInfo::${style}"->new(@params); }
1; # End of BBS::UserInfo