File Coverage

blib/lib/Bot/Cobalt/Plugin/Version.pm

Criterion	Covered	Total	%
statement	13	45	28.8
branch	0	10	0.0
condition	0	8	0.0
subroutine	5	8	62.5
pod	0	4	0.0
total	18	75	24.0

package Bot::Cobalt::Plugin::Version;
$Bot::Cobalt::Plugin::Version::VERSION = '0.021001';
use strictures 2;

use Bot::Cobalt;
use Bot::Cobalt::Utils 'secs_to_str';

use Object::Pluggable::Constants ':ALL';

sub new { bless [], shift  }

sub Cobalt_register {
  my ($self, $core) = splice @_, 0, 2;
  register $self, SERVER => 'public_msg';
  logger->info("Loaded");
  PLUGIN_EAT_NONE
}

sub Cobalt_unregister {
  my ($self, $core) = splice @_, 0, 2;
  logger->info("Unloaded");
  PLUGIN_EAT_NONE
}

sub Bot_public_msg {
  my ($self, $core) = splice @_, 0, 2;
  my $msg     = ${$_[0]};
  my $context = $msg->context;
  return PLUGIN_EAT_NONE unless $msg->highlight;

  my $resp;

  my $cmd = lc($msg->message_array->[1] || return PLUGIN_EAT_NONE);

  CMD: {
    if ($cmd eq 'info') {
      my $startedts = $core->State->{StartedTS} // 0;
      my $delta = time() - $startedts;

      my $randstuffs = $core->Provided->{randstuff_items} // 0;
      my $infoglobs  = $core->Provided->{info_topics}    // 0;

      $resp = core->rpl( q{RPL_INFO},
        version => 'Bot::Cobalt '.$core->version,
        plugins => scalar keys %{ $core->plugin_list },
        uptime  => secs_to_str($delta),
        sent    => $core->State->{Counters}->{Sent},
        topics  => $infoglobs,
        randstuffs => $randstuffs,
      );

      last CMD
    }

    if ($cmd eq 'version') {
      $resp = core->rpl( q{RPL_VERSION},
        version => 'Bot::Cobalt '.$core->version,
        perl_v  => sprintf("%vd", $^V),
        poe_v   => $POE::VERSION,
        pocoirc_v => $POE::Component::IRC::VERSION,
      );

      last CMD
    }

    if ($cmd eq 'os') {
      $resp = core->rpl( q{RPL_OS}, { os => $^O } );
      last CMD
    }

    return PLUGIN_EAT_NONE
  }

  broadcast('message', $context, $msg->channel, $resp)
    if defined $resp;

  PLUGIN_EAT_NONE
}

1;
__END__