diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2019-10-23 19:00:38 +0100 |
|---|---|---|
| committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2019-12-09 23:19:05 +0000 |
| commit | 813e85a03dc214f719dc8248bda36156897b0757 (patch) | |
| tree | 9e3c12a41469a967477219e0d0a670ab593618d2 /warnings.h | |
| parent | e139e9c0aa8151ab29e98bb9f3216ee7a14abe4d (diff) | |
| download | perl-813e85a03dc214f719dc8248bda36156897b0757.tar.gz | |
Add the `isa` operator
Adds a new infix operator named `isa`, with the semantics that
$x isa SomeClass
is true if and only if `$x` is a blessed object reference that is either
`SomeClass` directly, or includes the class somewhere in its @ISA
hierarchy. It is false without warning or error for non-references or
non-blessed references.
This operator respects `->isa` method overloading, and is intended to
replace boilerplate code such as
use Scalar::Util 'blessed';
blessed($x) and $x->isa("SomeClass")
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/warnings.h b/warnings.h index 0677df1446..cf3d363ddc 100644 --- a/warnings.h +++ b/warnings.h @@ -127,6 +127,10 @@ #define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 71 #define WARN_EXPERIMENTAL__VLB 72 +/* Warnings Categories added in Perl 5.031 */ + +#define WARN_EXPERIMENTAL__ISA 73 + /* =for apidoc Amnh||WARN_ALL @@ -202,6 +206,7 @@ =for apidoc Amnh||WARN_EXPERIMENTAL__PRIVATE_USE =for apidoc Amnh||WARN_EXPERIMENTAL__UNIPROP_WILDCARDS =for apidoc Amnh||WARN_EXPERIMENTAL__VLB +=for apidoc Amnh||WARN_EXPERIMENTAL__ISA =cut */ |