7
our @EXPORT = qw(decl_proto);
9
# this BEGIN block is called only once, since this module doesn't get
10
# removed from %INC after it was loaded
12
# use an external package which will persist across requests
13
$MyData::blocks{perlrun_decl}++;
16
sub decl_proto ($;$) { shift }
18
# this END block won't be executed until the server shutdown
20
$MyData::blocks{perlrun_decl}--;