Select Code to Download

    whatever( { user_id => $user, campaign => $cmp } );

    $account->add_client(
        $db,  # DBI handle
        { name => $client, status => 'new' },  # Data
        { require_unique => 1 },  # Options
    );

sub add_client {
    my( $db, $rec, $opt, @bad ) = @_;
...
    my $contract = delete $opt->{contract};
    my $context = _context( delete $opt->{referrer} );
    argue( \$opt, \@bad, { db => $db, rec => $rec } );