Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
          print("post\n");
       }
    }
    
  2. or download this
    pre
    STORE undef   # local
    ...
    STORE [a]     # assignment
    post
    STORE undef   # local unroll
    
  3. or download this
    use Sub::ScopeFinalizer qw( scope_finalizer );
    
    ...
       my $sentry = local_sassign $SIG{ALRM}, \&alarm_handler;
       ...
    }