1 8f7f2f4a 2021-12-17 jrmu #!/usr/bin/perl
 2 8f7f2f4a 2021-12-17 jrmu use strict;
 3 8f7f2f4a 2021-12-17 jrmu use warnings;
 4 8f7f2f4a 2021-12-17 jrmu 
 5 8f7f2f4a 2021-12-17 jrmu package IDBot;
 6 8f7f2f4a 2021-12-17 jrmu use base qw(Bot::BasicBot);
 7 8f7f2f4a 2021-12-17 jrmu 
 8 8f7f2f4a 2021-12-17 jrmu sub said {
 9 8f7f2f4a 2021-12-17 jrmu 	my $self      = shift;
10 8f7f2f4a 2021-12-17 jrmu 	my $arguments = shift;
11 8f7f2f4a 2021-12-17 jrmu 	if ($arguments->{who} =~ /^yournick$/) {
12 8f7f2f4a 2021-12-17 jrmu 		return "You're the boss!";
13 8f7f2f4a 2021-12-17 jrmu 	} else {
14 8f7f2f4a 2021-12-17 jrmu 		return "I don't recognize you!";
15 8f7f2f4a 2021-12-17 jrmu 	}
16 8f7f2f4a 2021-12-17 jrmu }
17 8f7f2f4a 2021-12-17 jrmu 
18 8f7f2f4a 2021-12-17 jrmu package main;
19 8f7f2f4a 2021-12-17 jrmu 
20 8f7f2f4a 2021-12-17 jrmu my $bot = IDBot->new(
21 8f7f2f4a 2021-12-17 jrmu 	server      => 'irc.example.com',
22 8f7f2f4a 2021-12-17 jrmu 	port        => '6667',
23 8f7f2f4a 2021-12-17 jrmu 	channels    => ['#perl101'],
24 8f7f2f4a 2021-12-17 jrmu 	nick        => 'nickname',
25 8f7f2f4a 2021-12-17 jrmu 	name        => 'username',
26 8f7f2f4a 2021-12-17 jrmu );
27 8f7f2f4a 2021-12-17 jrmu $bot->run();