X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare.pm;h=b0f766e5e999f3cf3eae8ff5165ae0477e59629b;hb=919504e380ca82e9b3590edec2119eb36b82f40b;hp=3f3eb76d77f66754faaafbb85cc3b40a20a09b05;hpb=8449c31f7eddd7fab1ed222bb554e57f4b850768;p=p5sagit%2FDevel-Declare.git diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm index 3f3eb76..b0f766e 100644 --- a/lib/Devel/Declare.pm +++ b/lib/Devel/Declare.pm @@ -1,10 +1,11 @@ package Devel::Declare; +# ABSTRACT: (DEPRECATED) Adding keywords to perl, in perl use strict; use warnings; use 5.008001; -our $VERSION = '0.006006'; +our $VERSION = '0.006019'; use constant DECLARE_NAME => 1; use constant DECLARE_PROTO => 2; @@ -20,6 +21,8 @@ bootstrap Devel::Declare; @ISA = (); +initialize(); + sub import { my ($class, %args) = @_; my $target = caller; @@ -469,6 +472,10 @@ This builtin returns the full text of the current line of the source document. =head4 C This builtin sets the full text of the current line of the source document. +Beware that injecting a newline into the middle of the line is likely +to fail in surprising ways. Generally, Perl's parser can rely on the +`current line' actually being only a single line. Use other kinds of +whitespace instead, in the code that you inject. =head3 C