Help for this page

Select Code to Download


  1. or download this
    use Foo::Bar;
my $fb = Foo::Bar->new;
$fb->[0] = 12; # here Foo::Bar::STORE($self,$index,$value) is called
print $fb; # not sure, maybe Foo::Bar=SCALAR(0x1835bfc)?
  2. or download this
    use Foo::Bar;
tie my @array, 'Foo::Bar';
$array[0] = 12; # here Foo::Bar::STORE($self,$index,$value) is called