class_docstr: For `Perl 6 <http://www.perl6.org>`_ source code.
  
  .. versionadded:: 2.0
code: def opening_brace_callback(lexer, match, context):
      stack = context.stack
  
      yield match.start(), Text, context.text[
          match.start() : match.end()
      ]
      context.pos = match.end()
  
      # if we encounter an opening brace and we're one level
      # below a token state, it means we need to increment
      # the nesting level for braces so we know later when
      # we should return to the token rules.
      if len(stack) > 2 and stack[-2] == "token":
          context.perl6_token_nesting_level += 1
  
file_path: wandb/wandb/vendor/pygments/lexers/perl.py
imports: import re
  from pygments.lexer import RegexLexer, ExtendedRegexLexer, include, bygroups, using, this, default, words
  from pygments.token import Text, Comment, Operator, Keyword, Name, String, Number, Punctuation
  from pygments.util import shebang_matches
label_desc: Use image node_id 3 for calling the Perl6Lexer obj's underlying member method code with example usage: obj.opening_brace_callback(lexer, match, context) without return types