File Coverage

lib/LiBot/Handler/CoreList.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	35	36	97.2

package LiBot::Handler::CoreList;
use strict;
use warnings;
use utf8;

use Module::CoreList;

use Mouse;
no Mouse;

sub init {
    my ($self, $bot) = @_;
    $bot->register(
        qr/^corelist\s+([A-Za-z:_]+)$/ => \&_handler
    );
}

sub _handler {
    my ($cb, $event, $module) = @_;
    my $r = Module::CoreList->first_release($module);
    if (defined $r) {
        $cb->("${module} was first released with perl $r");
    } else {
        $cb->("${module} was not in CORE (or so I think)");
    }
}

1;
__END__