Select Code to Download

sub PDL::mapfraw {
        my $class = shift;
    my($name,$opts) = @_;
...
    }
    return $pdl;
}

set_data_by_mmap(it,fname,len,writable,shared,creat,mode,trunc)
    pdl *it
    char *fname
...
       pdl_add_deletedata_magic(it, pdl_delete_mmapped_data, len);
       close(fd);
#else