The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%module{SOOT};

class TArrayF {
  TArrayF(AV* array)
    %code{%
      size_t len;
      Float_t* ary = SOOT::AVToFloatVec<Float_t>(aTHX_ array, len);
      RETVAL = new TArrayF(len, ary);
      free(ary);
    %};
  TArrayFloatArray GetArray();
};