Select Code to Download

Select or download this
```
    line1
        line2
```
Select or download this
```
    a   line1
    a       line2
```

  DB<8> y caller_id assertion report_code
$assertion = '$x < \'1\''
$caller_id = 1
$report_code = " unless(\$x < '1') {\cI\cI\cI\cI\cI\cI\cI\cI  \cISmart
+::Comments::Any::Warn_for( \cI\cI\cI\cI\cI\cI\cI\cI\cI\cI \cI\cI\cI1,
+ \cI\cI\cI\cI\cI\cI\cI\cI  \cI\cI\"\\n\", \cI\cI\cI\cI\cI\cI\cI\cI\cI
+\cI \cI\cI\cIq{### \$x < '1' was not true} \cI\cI\cI\cI \cI\cI);\cI\c
+I\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI  \cI Smart::Comments::Any::Dump_for(\
+cI\cI\cI\cI\cI\cI\cI  \cI-caller_id\cI=> 1,\cI\cI  \cI-prefix\cI\cI=>
+ q{    \$x was:},\cI  \cI-varref\cI\cI=> [\$x], \cI\cI\cI  \cI-no_new
+line\cI=> 1\cI\cI\cI\cI  );\cI\cI\cI\cI\cI\cI\cI\cI\cI;\cI\cI\cI\cI\c
+I\cI\cI  \cI die \"\\n\"\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI
+\cI  }\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI\cI"

Select or download this

# --- TAB STOPS ---                     1   1   1   1   1   1   1   1 
+  1   1#
#   1   2   3   4   5   6   7   8   9   0   1   2   3   4   5   6   7 
+  8   9#
#   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   | 
+  |   |#

Select or download this

 1: # This is not a subroutine but a call to Filter::Simple::FILTER
 2: #   with its single argument being its following block. 
...
18:     
19: };
20: