Select Code to Download

  my $god = Product->new('religion');

  if ( $god->exists ) {
...
  else {
      # Product::Potential
  }

  sub create {
      my $self = shift;
      if ( $self->exists ) {
...
      }
      # create the object
  }