1: # This is not a subroutine but a call to Filter::Simple::FILTER
 2: #   with its single argument being its following block. 
 3: # 
 4: FILTER {
 5:     ##### |--- Start of filter ---|
 6:     ##### @_
 7:     
 8:     # Assertions...
 9:     s{ ^ $hws* $intro [ \t] $check : \s* (.*?) $optcolon $hws* $ }
10:      { _decode_assert($caller_id, $1) }egmx;
11:     
12: # Undocumented feature:
13: #    # Anything else is a literal string...
14: #    s{ ^ $hws* $intro $hws* (.*) }
15: #     {Dump_for(-prefix=>q{$1});$DBX}gmx;
16:     
17: #~ say "---| Source after filtering:\n", $_, '|--- END SOURCE CODE';        #~
18:     
19: };
20: