Select Code to Download

my $f = Foo->new(); # normal creation
print ref $f;       # prints "Foo"
...
my $aref = $f->getVariants(); # reference to array containing many Foo
+s
print ref $aref->[0];         # prints "Foo"
print $aref->[0];             # prints "Foo=SCALAR(0x19c8290)"

package Bar::Foo;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
...
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}

SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_Foo, SWIG_OWNER
+ | SWIG_SHADOW)

SWIG_NewPointerObj(x, SWIGTYPE_p_Foo, 0)

%perlcode %{

...
    return $aref;
}
%}