use v5.36;
use DBI;
use DBD::Mock;
use Data::Dumper;

my $session = DBD::Mock::Session->new('testing' => (
    {
        statement => 'SELECT * FROM bar',
        results   => [ 
          ['one', 'two'], 
          ['three', 'four'] 
        ], 
    }
));

my $dbh = DBI->connect('dbi:Mock:', '', '') or die $DBI::errstr;
$dbh->{mock_session} = $session;

my $data = $dbh->selectall_arrayref("SELECT * FROM bar");
say Dumper({ DATA => $data });