#! /usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use Data::Dumper::Concise;
use HTGT::DBFactory;
use Log::Log4perl ':easy';

Log::Log4perl->easy_init;

# find the 768 distinct clones
my $schema   = HTGT::DBFactory->connect('vector_qc');
my $run_id   = 22473;
my $clone_rs = $schema->resultset('ConstructClone')->search_rs(
    { 'qctestResults.qctest_run_id' => $run_id },
    { 'distinct'                    => 1, 'join' => 'qctestResults' }
);

INFO 'clone count: ', $clone_rs->count;

while ( my $clone = $clone_rs->next ) {
    INFO Dumper {
        well         => $clone->well,
        plate        => $clone->plate,
        name         => $clone->name,
        clone_number => $clone->clone_number,
    };
    last;
}

exit 0;