The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

SYNOPSIS

  use POE::Component::IRC::Plugin::WWW::KrispyKreme::HotLight;

  use strict;
  use warnings;

  use POE qw(
    Component::IRC
    Component::IRC::Plugin::WWW::KrispyKreme::HotLight
  );

  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::WWW::KrispyKreme::HotLight->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::WWW::KrispyKreme::HotLight->new(    #
          geo => [34.101509, -118.32691]
      )
  );

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

DESCRIPTION

POE::Component::IRC::Plugin::WWW::KrispyKreme::HotLight 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