safenav-block-syntax.pl

use v5.36;
use Data::Dumper 'Dumper';
use PerlX::SafeNav ('$safenav', '$unsafenav');

package O {
    sub bar { "bar" }
    sub foo { undef }
};

sub safenav :prototype(&) ($cb) {
    sub {
        local $_ = $_->$safenav;
        $cb->()->$unsafenav;
    }
}

sub with ($o, $p) {
    local $_ = $o;
    $p->();
}

my $o = bless {}, 'O';

my $result = with $o, safenav {
    $_ -> foo -> bar;
};

say Dumper($result);