view release on metacpan or  search on metacpan

t/html.t  view on Meta::CPAN

        print $_;
        last if /^__DATA__/;
    }
    close SELF;
    while (@html) {
        my $name = shift @names;
        my $html = shift @html;
        print "# $name\n";
        print $html; 

        # skip the transliterations
        shift @names;
        shift @html;

        print "#\n";
        print $shavian->transliterate_html($html);
    }
} else {
    plan tests => scalar(@html)/2;

    while (@html) {