… | |
… | |
2950 | sv_to (sv, self); |
2950 | sv_to (sv, self); |
2951 | delete self; |
2951 | delete self; |
2952 | |
2952 | |
2953 | MODULE = cf PACKAGE = cf::object::thawer |
2953 | MODULE = cf PACKAGE = cf::object::thawer |
2954 | |
2954 | |
2955 | INCLUDE: $PERL $srcdir/genacc object_thawer $srcdir/../include/cfperl.h | |
2955 | INCLUDE: $PERL $srcdir/genacc object_thawer $srcdir/../include/freezethaw.h | |
2956 | |
2956 | |
2957 | SV * |
2957 | SV * |
2958 | new_from_file (char *klass, octet_string path) |
2958 | new_from_file (char *klass, octet_string path) |
2959 | CODE: |
2959 | CODE: |
2960 | object_thawer *f = new object_thawer (path); |
2960 | object_thawer *f = new object_thawer (path); |