avoid indirect object syntax

[p5sagit/Devel-Declare.git] / lib / Devel / Declare.pm

diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm
index 20372a9..8302dbc 100644 (file)
--- a/lib/Devel/Declare.pm
+++ b/lib/Devel/Declare.pm
@@ -1,24 +1,23 @@
 package Devel::Declare;
-# ABSTRACT: (DEPRECATED) Adding keywords to perl, in perl
 
 use strict;
 use warnings;
 use 5.008001;
 
-our $VERSION = '0.006019';
+our $VERSION = '0.006022';
+$VERSION =~ tr/_//d;
 
 use constant DECLARE_NAME => 1;
 use constant DECLARE_PROTO => 2;
 use constant DECLARE_NONE => 4;
 use constant DECLARE_PACKAGE => 8+1; # name implicit
 
-use vars qw(%declarators %declarator_handlers @ISA);
+our (%declarators, %declarator_handlers, @ISA);
 use base qw(DynaLoader);
 use Scalar::Util 'set_prototype';
 use B::Hooks::OP::Check 0.19;
 
-bootstrap Devel::Declare;
-
+Devel::Declare->bootstrap;
 @ISA = ();
 
 initialize();
@@ -288,7 +287,7 @@ sub linestr_callback {
 
 =head1 NAME
 
-Devel::Declare - Adding keywords to perl, in perl
+Devel::Declare - (DEPRECATED) Adding keywords to perl, in perl
 
 =head1 SYNOPSIS
 
@@ -330,7 +329,7 @@ of kittens use something else:
 
 =item *
 
-Instead of L<TryCatch>, use L<Try::Tiny>
+Instead of L<TryCatch>, use L<Syntax::Keyword::Try> or L<Try::Tiny>
 
 =item *
 
@@ -339,6 +338,10 @@ L<real subroutine signatures|perlsub/Signatures> (requires perl 5.22) or L<Moops
 
 =back
 
+If you are a maintainer of something that uses Devel::Declare itself, please take a look at the
+more modern and robust alternatives, such as L<Keyword::Declare>, L<Keyword::Simple> or using
+L<perlapi/PL_keyword_plugin> in XS directly.
+
 =head1 USAGE
 
 We'll demonstrate the usage of C<Devel::Declare> with a motivating example: a new