Select Code to Download

# CodeSamples.pm
package CodeSamples;
...
# Notice that $query has nested SQL syntax
PTEXT
1;

#!/usr/bin/perl -w
# test_vimcolor.pl
...
    hr,
    h2("Perl (another package)"),
    pre(Text::VimColor->new(file =>'VimColorCache.pm',  filetype => 'p
+erl')->html);

package VimColorCache;
use strict;
...
Same as Perl itself.

=cut

#!/usr/bin/perl -w
# test_vimcolor_cache.pl
...
    hr,
    h2("Perl (another package)"),
    pre($vcc->draw('VimColorCache.pm', 'file', 'perl', 'html'));