#!perl -T

use Test::More;
eval "use Test::Pod::Coverage 1.04";
plan skip_all =>
  "Test::Pod::Coverage 1.04 required for testing POD coverage"
  if $@;
all_pod_coverage_ok(
    {
        private => [
            qr{^BUILD|DEMOLISH|AUTOMETHOD|START$}, qr{^_},
            qr{compliment}
        ]
    }
);


syntax highlighted by Code2HTML, v. 0.9.1