File Coverage

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

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

package DB::Pluggable::Plugin::DataPrinter;
use strict;
use warnings;
use 5.010;
use Role::Basic;
use Data::Printer; # to make it a requirement
with qw(DB::Pluggable::Role::Initializer);
our $VERSION = '1.12';

sub initialize {
    my ($self) = @_;
    no warnings 'once';
    my @options;
    for my $opt (keys %{ $self }) {
      next if $opt eq 'name';
      next if ref( $self->{ $opt } );
      push @options, "$opt => $self->{ $opt }";
     }

    my $options = @options ? ', ' . join( ', ', @options ) : '';
    $DB::alias{p} = "s/^(.*)\$/Data::Printer::\$1$options/";
}
1;

__END__