X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare.pm;h=52163f62c74ac28af964e5fc14873bba38be1c89;hb=eb885995e02ff14ddf174218c08db32ed85c610e;hp=3f3eb76d77f66754faaafbb85cc3b40a20a09b05;hpb=8449c31f7eddd7fab1ed222bb554e57f4b850768;p=p5sagit%2FDevel-Declare.git diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm index 3f3eb76..52163f6 100644 --- a/lib/Devel/Declare.pm +++ b/lib/Devel/Declare.pm @@ -4,7 +4,7 @@ use strict; use warnings; use 5.008001; -our $VERSION = '0.006006'; +our $VERSION = '0.006011'; use constant DECLARE_NAME => 1; use constant DECLARE_PROTO => 2; @@ -20,6 +20,8 @@ bootstrap Devel::Declare; @ISA = (); +initialize(); + sub import { my ($class, %args) = @_; my $target = caller; @@ -469,6 +471,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