X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare.pm;h=14f9dc2e80b714f4170aa714462c46c126bfca6b;hb=b7f6e45e4fe4d5ef3092a6cb18e04123a303c0fb;hp=90e1d379ac6510f9ae50abeffbc91f4e78e145fd;hpb=55c6e85993a12e6df9d2332a75105ac031e9026d;p=p5sagit%2FDevel-Declare.git diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm index 90e1d37..14f9dc2 100644 --- a/lib/Devel/Declare.pm +++ b/lib/Devel/Declare.pm @@ -6,6 +6,8 @@ use warnings; use 5.008001; our $VERSION = '0.006_020'; + +bootstrap Devel::Declare; $VERSION =~ tr/_//d; use constant DECLARE_NAME => 1; @@ -13,13 +15,11 @@ 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; - @ISA = (); initialize();