Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
Perl
/
Destruct
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Level.pm
1.75 KB
-rw-r--r--
2007-12-03 11:12:14
Edit
Del
Editing: Level.pm
(1.75 KB)
Path: /usr/lib64/perl5/vendor_perl/Perl/Destruct/Level.pm
Back
package Perl::Destruct::Level; use strict; use warnings; use XSLoader (); our $VERSION = '0.02'; XSLoader::load 'Perl::Destruct::Level', $VERSION; sub import { shift; my %p = @_; set_destruct_level($p{level}) if exists $p{level}; } 1; __END__ =head1 NAME Perl::Destruct::Level - Allow to change perl's destruction level =head1 SYNOPSIS use Perl::Destruct::Level level => 1; my $current_destruct_level = Perl::Destruct::Level::get_destruct_level(); =head1 DESCRIPTION This module allows to change perl's internal I<destruction level>. The default value of the destruct level is 0; it means that perl won't bother destroying all its internal data structures, but let the OS do the cleanup for it at exit. For perls built with debugging support (C<-DDEBUGGING>), an environment variable C<PERL_DESTRUCT_LEVEL> allows to control the destruction level. This modules enables to modify it on non-debugging perls too. Relevant values recognized by perl are 1 and 2. Consult your source code to know exactly what they mean. Note that some embedded environments might extend the meaning of the destruction level for their own purposes: mod_perl does that, for example. =head1 CAVEATS This module won't work when used from within an END block. Loading the C<threads> module will set the destruction level to 2. (This is to enable spawned threads to properly cleanup their objects.) Loading modules that load C<threads>, even if they don't spawn threads, will also set the destruction level to 2. (A common example of such a module is C<Test::Builder>.) =head1 AUTHOR Copyright (c) 2007 Rafael Garcia-Suarez. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L<perlrun>, L<perlhack> =cut