File Coverage

blib/lib/Bot/Cobalt.pm

Criterion	Covered	Total	%
statement	13	22	59.0
branch	0	4	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	20	35	57.1

package Bot::Cobalt;
$Bot::Cobalt::VERSION = '0.021003';
use strictures 2;
use Carp;

use Import::Into;

use Bot::Cobalt::Core::Sugar ();

sub import {
  Bot::Cobalt::Core::Sugar->import::into(scalar caller, @_[1 .. $#_])
}

sub instance {
  require Bot::Cobalt::Core;
  shift;
  if (@_) {
    ## Someone tried to create a fresh instance, but they really
    ## wanted a Bot::Cobalt::Core.
    ## Behavior may change.
    return Bot::Cobalt::Core->instance(@_)
  }

  unless (Bot::Cobalt::Core->has_instance) {
    carp "Tried to retrieve instance but no active Bot::Cobalt::Core found";
    return
  }

  Bot::Cobalt::Core->instance
}

sub new {
  croak "Bot::Cobalt is a stub; it cannot be constructed.\n"
    . "See the perldoc for Bot::Cobalt::Core";
}

1;
__END__