Help for this page

Select Code to Download


  1. or download this
    my @array = '1' .. '3';
my $test = Test->new([@array]) :
print "Ref: ", ref $g->avref, "\n";
use Devel::Peek;
Dump($g->avref);
  2. or download this
    SvTYPE: 10
Ref: REF
...
    PV = 0x301f90 "(0x1811aa4) at 0x180147c\n  REFCNT = 1\n  FLAGS = (
+TEMP,ROK)"\0
    CUR = 58
    LEN = 59
  3. or download this
    SvTYPE: 10
Ref: ARRAY
...
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 3
  4. or download this
    #include "EXTERN.h"
#include "perl.h"
...
}
OUTPUT:
    RETVAL