diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-01-18 12:42:55 +0000 |
|---|---|---|
| committer | Sawyer X <xsawyerx@cpan.org> | 2017-06-01 10:53:32 +0200 |
| commit | cfdc35fc22e32a4383f59856f093e3f386a646b7 (patch) | |
| tree | 399b2ec10dcf23caf0f15490f9929ed8594d88ec /dist/Attribute-Handlers | |
| parent | c7321345b8729a0b98040be0b0b96e41f6a13ba8 (diff) | |
| download | perl-cfdc35fc22e32a4383f59856f093e3f386a646b7.tar.gz | |
Remove deprecated no-op :unique attribute
It's been deprecated and a no-op since 5.10.
Move :unique test into it own file so it can be skipped separately
Merely parsing an unknown attribute fails, so the skip has to happen
at BEGIN time.
Diffstat (limited to 'dist/Attribute-Handlers')
| -rw-r--r-- | dist/Attribute-Handlers/lib/Attribute/Handlers.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm index 7c049d48e6..710fe0839d 100644 --- a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm +++ b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm @@ -4,7 +4,7 @@ use Carp; use warnings; use strict; use vars qw($VERSION $AUTOLOAD); -$VERSION = '0.99'; # remember to update version in POD! +$VERSION = '1.00'; # remember to update version in POD! # $DB::single=1; my %symcache; @@ -139,7 +139,9 @@ sub AUTOLOAD { croak "Attribute handler '$2' doesn't handle $1 attributes"; } -my $builtin = qr/lvalue|method|locked|unique|shared/; +my $builtin = $] ge '5.027000' + ? qr/lvalue|method|locked|shared/ + : qr/lvalue|method|locked|shared|unique/; sub _gen_handler_AH_() { return sub { @@ -270,7 +272,7 @@ Attribute::Handlers - Simpler definition of attribute handlers =head1 VERSION -This document describes version 0.99 of Attribute::Handlers. +This document describes version 1.00 of Attribute::Handlers. =head1 SYNOPSIS |