projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Make get_all_attributes() sorted by their definition order
[gitmo/Mouse.git]
/
xs-src
/
MouseTypeConstraints.xs
diff --git
a/xs-src/MouseTypeConstraints.xs
b/xs-src/MouseTypeConstraints.xs
index
57ed21a
..
78ce1fd
100644
(file)
--- a/
xs-src/MouseTypeConstraints.xs
+++ b/
xs-src/MouseTypeConstraints.xs
@@
-713,6
+713,17
@@
BOOT:
code_ref );
}
+UV
+_identity(SV* self, ...)
+CODE:
+{
+ if(!SvROK(self)) {
+ croak("Invalid object instance: '%"SVf"'", self);
+ }
+ RETVAL = PTR2UV(SvRV(self));
+}
+OUTPUT:
+ RETVAL
void
compile_type_constraint(SV* self)