X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1f8153bdcb58e8980487eabd1f31dacf97a5f592..b6dbf1d39057ebab301f6e56d7c7ebcd44cefe8b:/lib/feature.pm diff --git a/lib/feature.pm b/lib/feature.pm index b83ebff..668b430 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -5,10 +5,11 @@ package feature; -our $VERSION = '1.54'; +our $VERSION = '1.57'; our %feature = ( fc => 'feature_fc', + isa => 'feature_isa', say => 'feature_say', state => 'feature_state', switch => 'feature_switch', @@ -29,7 +30,7 @@ our %feature_bundle = ( "5.15" => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)], "5.23" => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], "5.27" => [qw(bitwise current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], - "all" => [qw(bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], + "all" => [qw(bitwise current_sub declared_refs evalbytes fc isa postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], "default" => [qw()], ); @@ -350,6 +351,14 @@ Reference to a Variable> for examples. This feature is available from Perl 5.26 onwards. +=head2 The 'isa' feature + +This allows the use of the C infix operator, which tests whether the +scalar given by the left operand is an object of the class given by the +right operand. See L for more details. + +This feature is available from Perl 5.32 onwards. + =head1 FEATURE BUNDLES It's possible to load multiple features together, using @@ -485,7 +494,7 @@ sub __common { my $import = shift; my $bundle_number = $^H & $hint_mask; my $features = $bundle_number != $hint_mask - && $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; + && $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]}; if ($features) { # Features are enabled implicitly via bundle hints. # Delete any keys that may be left over from last time.