view release on metacpan or  search on metacpan

lib/Data/STUID/Generator.pm  view on Meta::CPAN

    }
    $mutex->setall(1);
    $shm->write( pack( "ql", 0, 0 ), 0, 24 );

    $self->parent($$);
    $self->mutex( $mutex );
    $self->shared_mem( $shm );

    push @RESOURCE_GUARDS, (sub {
        my $SELF = shift;
        Scalar::Util::weaken($SELF);
        _guard {
            eval { $SELF->cleanup };
        };
    })->($self);

    $self->{prepared}++;
}

sub cleanup {
    my $self = shift;