# Create an instance sub warn_msg { my ($action, $fmt) = (shift, shift); my $msg = sprintf $fmt, @_; print 'WARN: ', $action, ': ', $msg, "\n"; } my %strmap; my ...
# Create an instance sub warn_cb { my ($ctx, $action, $stmt, $fmt) = (shift, shift, shift, shift); my $msg = sprintf $fmt, @_; print "WARN: [$ctx->{infunction ...
Some results have been hidden because they may be inaccessible to you
Show inaccessible results
Feedback