Doin' a subselect in DBIx::Class

my %where = ('author_last_name'=>'Cantarel');$sub = 'IN (select papers.pubmed_id from papers inner join pubmed
using(pubmed_id) inner join journals using(journal_id) where  journal_name like '%informatics' or journal_name like 'Molecular%')';
$where{'papers.pubmed_id'}  = \$sub;

$q = $author_rs->search(\%where,
                  {
                   join=>'papers',
                   select   => ['journal_id',{count => 'pubmed_id'}],
                   as       => [qw/journal_id numpubs/],
                   group_by => [qw/journal_id/]
                  });