diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-28 03:43:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-28 03:43:52 +0000 |
| commit | 954c1994944eafa74aaac1bab94e820b6e447da9 (patch) | |
| tree | afa8c853a6e0f521ecc16ce51a98035eb1b6b6f7 /universal.c | |
| parent | 030866aa8d0911636ef2210b710f544fd2c85c8e (diff) | |
| download | perl-954c1994944eafa74aaac1bab94e820b6e447da9.tar.gz | |
autogenerate API listing from comments in the source (from Benjamin
Stuhl <sho_pi@hotmail.com>); fix the markup format to be more
flexible for better readability; add missing docs in sv.c; regenerate
perltoc
p4raw-id: //depot/perl@4915
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/universal.c b/universal.c index aa5487ff0e..1e5a1a0efe 100644 --- a/universal.c +++ b/universal.c @@ -73,6 +73,16 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, int len, int level) return boolSV(strEQ(name, "UNIVERSAL")); } +/* +=for apidoc sv_derived_from + +Returns a boolean indicating whether the SV is derived from the specified +class. This is the function that implements C<UNIVERSAL::isa>. It works +for class names as well as for objects. + +=cut +*/ + bool Perl_sv_derived_from(pTHX_ SV *sv, const char *name) { |