Select Code to Download

  my $_global;
  sub _self_or_create
...
    $_global ||= __PACKAGE__->_new();
    return $_global; # assume $self eq __PACKAGE__ or something derive
+d from it?
  }

  sub some_method
  {
    my $self = _self_or_create(shift);
    # ...
  }

{
  my $obj = Vendor::Library->new(...);
...
  my $obj = Vendor::Library->new(...);
  # different code here (I presume)
}