[Dbix-class] Shortcut to perform lookups

[David Ihnen]

Oye, at least when you're coding you don't make silly ommissions... like 
not doing create_related.
>
>  my ($self, $status_obj, $phase_obj) = @_;
>  $self->txn_do( sub { $self->create_related('process', { status => 
> $status_obj, phase => $phase_obj }) } );
> }