t/51-dd-newlines.t

   1 #!perl
   2
   3 use lib 't/lib';
   4 use VPIT::TestHelpers;
   5
   6 BEGIN {
   7  load_or_skip_all("Devel::Declare", 0.006007, undef);
   8 }
   9
  10 use Test::More tests => 1;
  11
  12 sub foo { }
  13
  14 sub foo_magic {
  15  my($declarator, $offset) = @_;
  16  $offset += Devel::Declare::toke_move_past_token($offset);
  17  my $linestr = Devel::Declare::get_linestr();
  18  substr $linestr, $offset, 0, "\n\n";
  19  Devel::Declare::set_linestr($linestr);
  20 }
  21
  22 BEGIN {
  23  Devel::Declare->setup_for("main", { foo => { const => \&foo_magic } });
  24 }
  25
  26 no indirect ":fatal";
  27
  28 sub bar {
  29  my $x;
  30  foo; $x->m;
  31 }
  32
  33 ok 1;