view release on metacpan or  search on metacpan

t/lines.t  view on Meta::CPAN

  $offset += Devel::Declare::toke_move_past_token($offset);
  my $stripped = Devel::Declare::toke_skipspace($offset);
  my $linestr = Devel::Declare::get_linestr();

  push @lines, PL_compiling->line;
}


use Devel::Declare;
BEGIN {
sub fun(&) {}

Devel::Declare->setup_for(
  __PACKAGE__,
  { fun => { const => \&handle_fun } }
);
}


#line 100
fun