sub foo {
   my $arg = shift;
   my $object = ($arg) ? Some::Package->new() : Other::Package->new();
}