class Rouge::Lexers::Perl

# File lib/rouge/lexers/perl.rb, line 15
def self.detect?(text)
  return true if text.shebang? 'perl'
end

# File lib/rouge/lexers/perl.rb, line 120
def open_regex!(delimiter)
  @regex_end = BALANCED_DELIMITERS.fetch(delimiter, delimiter)
  push :regex
end

# File lib/rouge/lexers/perl.rb, line 125
def open_regex_operator!(delimiter)
  if BALANCED_DELIMITERS.key?(delimiter)
    push :balanced_regex
  else
    push :continued_regex
  end

  open_regex!(delimiter)
end