File: mop-method.xsi

package info (click to toggle)
libobject-pad-perl 0.821-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 936 kB
  • sloc: ansic: 3,361; perl: 3,328; pascal: 28; makefile: 3
file content (20 lines) | stat: -rw-r--r-- 420 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 

SV *
name(MethodMeta *self)
  ALIAS:
    name      = 0
    class     = 1
    is_common = 2
  CODE:
    switch(ix) {
      case 0: RETVAL = SvREFCNT_inc(self->name); break;
      case 1:
        RETVAL = newSV(0);
        sv_setref_uv(RETVAL, "Object::Pad::MOP::Class", PTR2UV(self->class));
        break;
      case 2: RETVAL = boolSV(self->is_common); break;

      default: RETVAL = NULL;
    }
  OUTPUT:
    RETVAL