… | |
… | |
48 | sv_utf8_downgrade (sv, 0); |
48 | sv_utf8_downgrade (sv, 0); |
49 | |
49 | |
50 | return (spritz_state *)SvPVX (sv); |
50 | return (spritz_state *)SvPVX (sv); |
51 | } |
51 | } |
52 | |
52 | |
|
|
53 | MODULE = Crypt::Spritz PACKAGE = Crypt::Spritz::Base |
|
|
54 | |
|
|
55 | SV * |
|
|
56 | clone (SV *self) |
|
|
57 | CODE: |
|
|
58 | /* no type check... too bad */ |
|
|
59 | self = SvRV (self); |
|
|
60 | RETVAL = sv_bless (newRV_noinc (newSVsv (self)), SvSTASH (self)); |
|
|
61 | OUTPUT: |
|
|
62 | RETVAL |
|
|
63 | |
53 | MODULE = Crypt::Spritz PACKAGE = Crypt::Spritz PREFIX = spritz_ |
64 | MODULE = Crypt::Spritz PACKAGE = Crypt::Spritz PREFIX = spritz_ |
54 | |
65 | |
55 | PROTOTYPES: ENABLE |
66 | PROTOTYPES: ENABLE |
56 | |
67 | |
57 | SV * |
68 | SV * |