NAME

POE::Component::IRC::Plugin::Donuts - IRC Plugin to announce when there are fresh donuts in the area!

SYNOPSIS

use POE::Component::IRC::Plugin::Donuts;

use strict;
use warnings;

use POE qw(
  Component::IRC
  Component::IRC::Plugin::Donuts
);

my $nick    = 'donut_bot';
my $ircname = 'the donut bot';
my $server  = 'irc.foobar';

my @channels = ('#coffee');

my $irc = POE::Component::IRC->spawn(
    nick    => $nick,
    ircname => $ircname,
    server  => $server
) or die "oops... $!";

POE::Session->create(
    package_states => [main => [qw(_start irc_001)],],
    heap           => {irc  => $irc},
);

$poe_kernel->run;

sub _start {
    my $heap = $_[HEAP];

  my $irc = $heap->{irc};
  $irc->yield(register => 'all');

  $irc->plugin_add(
      Donuts => POE::Component::IRC::Plugin::Donuts->new(    #
          geo => [34.101509, -118.32691]
      )
  );

    $irc->yield(connect  => {});
    return;
}

sub irc_001 {
    $irc->yield(join => $_) for @channels;
    return;
}

CONSTRUCTOR

$irc->plugin_add(
    Donuts => POE::Component::IRC::Plugin::Donuts->new(    #
        geo => [34.101509, -118.32691]
    )
);

The geo attribute is REQUIRED. See WWW::KrispyKreme::HotLight for more info

DESCRIPTION

POE::Component::IRC::Plugin::Donuts is an IRC plugin that announces when there are fresh Krispy Kreme donuts near the given location

SEE ALSO

WWW::KrispyKreme::HotLight

POE::Component::IRC::Plugin

AUTHOR

Curtis Brandt curtis@cpan.org

COPYRIGHT

Copyright 2013- Curtis Brandt

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO