package STR;
use Class::Std::Fast cache => 1;


## ----------------  ----------------  ---------------- ##
package main;
use threads;
use 5.010;
use strict;
use warnings;

STR->new; # create and immediately throw away.

# Now do something completely different with threads:
threads->create( sub { sleep 2 && say "thread $_" } ) for 1..4;

$_->join for threads->list;


##</code><code>##

sub _cache_class_ref () {
    croak q{you can't call this method in your namespace}
        if 0 != index caller, 'Class::Std::';
    return \%do_cache_class_of;
}

##</code><code>##

DESTROY created new reference to dead object
        'SOAP::WSDL::XSD::Typelib::Builtin::string' during global destruction (#1)