##
# compile error
$my->{no_such_field} ++;
##
##
use strict;
{
package My;
use fields qw[ one ];
sub new {
return fields::new(shift);
}
}
my My $my = new My;
$my->{one}++;
##
##
package My;
sub BEGIN {
use strict 'refs';
require fields;
do {
'fields'->import('one')
};
}
sub new {
use strict 'refs';
return fields::new(shift @_);
}
package main;
use strict 'refs';
{;};
my $my = 'My'->new;
++$$my[1]; ## <--- array access