Bot-Jabbot

 view release on metacpan or  search on metacpan

examples/lib/Jabbot/Module/Replier.pm  view on Meta::CPAN

package Bot::Jabbot::Module::Replier;
use base qw(Bot::Jabbot::Module);
use warnings;
use strict;

use AnyEvent;

sub init
{
    my ($self, $cl, $jid) = @_;
    $self->{timer} = AnyEvent->timer (after => 5, interval => 10, cb => sub {
        $self->timer($cl,$jid);
     });
    return 0;
}

sub timer
{
    #do something good
}

sub message {
    my ($self,$msg,$bot) = @_;
    return unless defined $msg->any_body;
    return $self->loc("wtf?");
}

lib/Bot/Jabbot/Module.pm  view on Meta::CPAN

    $self->{loc}->set_languages($lang);

    bless $self, $class;


    return $self;
}

=item init()

    called on module load, used for timers binding, etc.

=cut

sub init { undef }

=item setlang()

    sets current language

=cut

lib/Bot/Modules.pod  view on Meta::CPAN

  use AnyEvent;

  sub help
  {
      return "some help text";
  }
  
  sub init
  {
      my ($self,$cl,$jid)=@_;
      $self->{timer} = AnyEvent->timer (after => 5, interval => 10, cb => sub {
          $self->timer($cl,$jid);
       });
      return 0;
  }
  
  sub timer
  {
      #do something good
  }
  
  sub message {
      my ($self,$from,$body) = @_;
      return unless defined $body;
      return "wtf?";
  }
  

lib/Bot/Modules.pod  view on Meta::CPAN

  package Bot::Jabbot::Module::Replier;
  use base qw(Bot::Jabbot::Module);

or provide a new() and init() methods.

=head2 Methods to override

=head3 init(self,connection, jid)

Called on bot start, usefull for defining a timers, getting data from db, etc.
Should return B<0> on success, or error text on error

=over 4

=item B<self>

reference to module object

=item B<connection>