#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "INLINE.h"

double wrap_cos(SV * in) {

  if(sv_isobject(in)) {
    HV *self_hv = MUTABLE_HV(SvRV(in));
    SV **callback_ptr = hv_fetchs(self_hv, "Number", 0);
    return cos(SvNV(*callback_ptr));
  }
  return cos(SvNV(in));
}


MODULE = try_pl_96f2  PACKAGE = main  

PROTOTYPES: DISABLE


double
wrap_cos (in)
	SV *	in