Help for this page

Select Code to Download


  1. or download this
    my My $my
    
  2. or download this
    # compile error
    $my->{no_such_field} ++;
    
  3. or download this
    use strict;
    {
    ...
    }
    my  My $my = new My;
    $my->{one}++;
    
  4. or download this
    package My;
    sub BEGIN {
        use strict 'refs';
    ...
    {;};
    my $my = 'My'->new;
    ++$$my[1];  ##  <--- array access