… | |
… | |
2924 | |
2924 | |
2925 | MODULE = cf PACKAGE = cf::object::thawer |
2925 | MODULE = cf PACKAGE = cf::object::thawer |
2926 | |
2926 | |
2927 | INCLUDE: $PERL $srcdir/genacc object_thawer $srcdir/../include/freezethaw.h | |
2927 | INCLUDE: $PERL $srcdir/genacc object_thawer $srcdir/../include/freezethaw.h | |
2928 | |
2928 | |
|
|
2929 | bool |
|
|
2930 | errors_are_fatal (bool fatal) |
|
|
2931 | CODE: |
|
|
2932 | RETVAL = object_thawer::errors_are_fatal; |
|
|
2933 | object_thawer::errors_are_fatal = fatal; |
|
|
2934 | OUTPUT: |
|
|
2935 | RETVAL |
|
|
2936 | |
2929 | SV * |
2937 | SV * |
2930 | new_from_file (char *klass, octet_string path) |
2938 | new_from_file (char *klass, octet_string path) |
2931 | CODE: |
2939 | CODE: |
2932 | object_thawer *f = new object_thawer (path); |
2940 | object_thawer *f = new object_thawer (path); |
2933 | if (!*f) |
2941 | if (!*f) |