#!/usr/bin/perl
#$Id: pod_coverage.t,v 1.1 2005/03/25 13:38:17 simonflack Exp $
use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing pod coverage" if $@;
all_pod_coverage_ok({
    also_private => [qr/^TRACE(?:F|_HERE)?|DUMP$/,
                     qr/^(?:Draw|OnPaint|OnTimer|Rotate|UpdateThrobberEvent)$/]
});