Select Code to Download

   class color {
    public:
...

color *
color::new()

   1.  TYPEMAP
   2. color * O_OBJECT
...
  15. warn( \"${Package}::$func_name() -- $var is not a blessed SV ref
+erence\" );
  16. XSRETURN_UNDEF;
  17. }

my $x = new color();