#!/usr/bin/perl -w
# test_vimcolor_cache.pl
use strict;
use CGI qw/:standard/;
use VimColorCache;
use CodeSamples;

my $vcc = VimColorCache->new or die("can't create object ($!)\n");
print
    start_html(-title=>"VimColorcache test",
               -style=>{'src'=>'light.css'}
              ),
    h2("C"),
    pre( $vcc->draw($CodeSamples::ctext, 'string', 'c', 'html')),
    hr,
    h2("Perl"),
    pre($vcc->draw($CodeSamples::perltext, 'string', 'perl', 'html')),
    hr,
    h2("Perl (file)"),
    pre($vcc->draw($0, 'file', 'perl', 'html')),
    hr,
    h2("CSS"),
    pre($vcc->draw('light.css', 'file', 'css', 'html')),
    hr,
    h2("Perl (package)"),
    pre($vcc->draw('CodeSamples.pm', 'file', 'perl', 'html')),
    hr,
    h2("Perl (another package)"),
    pre($vcc->draw('VimColorCache.pm', 'file', 'perl', 'html'));