Partially revert 502e3aac.
[perl/modules/indirect.git] / 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;