File Coverage

blib/lib/DB/Pluggable/Plugin/TypeAhead.pm

Criterion	Covered	Total	%
statement	17	24	70.8
branch	0	8	0.0
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	24	40	60.0

package DB::Pluggable::Plugin::TypeAhead;
use strict;
use warnings;
use 5.010;
use Brickyard::Accessor rw => [qw(type ifenv)];
use Role::Basic;
with qw(DB::Pluggable::Role::AfterInit);
our $VERSION = '1.12';

sub afterinit {
    my $self = shift;
    my $type = $self->type;
    die "TypeAhead: need 'type' config key\n" unless defined $type;
    die "TypeAhead: 'type' must be an array reference of things to type\n"
      unless ref $type eq 'ARRAY';
    if (my $env_key = $self->ifenv) {
        return unless $ENV{$env_key};
    }
    no warnings 'once';
    push @DB::typeahead, @$type;
}
1;

__END__