File Coverage

blib/lib/Mojo/DB/Connector/Role/ResultsRoles.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Mojo::DB::Connector::Role::ResultsRoles;
use Mojo::Base -role;

requires 'new_connection';

has results_roles => sub { [] };

around new_connection => sub {
    my $orig = shift;
    my $self = shift;

    return $self->$orig(@_)
        unless my @roles = @{ $self->results_roles };

    my $connection = $self->$orig(@_);
    $connection->with_roles('Mojo::DB::Role::ResultsRoles');
    push @{$connection->results_roles}, @roles;

    return $connection;
};

1;
__END__