lineseq-test.pl

#!/usr/bin/env perl -w
use strict;
use warnings;
use 5.010;

use Devel::Declare ();

sub check {
    my $op = shift;
    my $offset =  Devel::Declare::get_linestr_offset();
    $offset += Devel::Declare::toke_skipspace($offset);
    my $line = Devel::Declare::get_linestr();
    say "[$line]";
}

use B::OPCheck lineseq => check => \✓

say "----";
say 40;
while(1) {
    say 41;
    last if rand() < 0.5;
    say 42;
}
say 43;