pod-coverage.t   [plain text]

use strict;

use Test::More;
eval "use Test::Pod::Coverage 1.06";
plan skip_all => "Test::Pod::Coverage 1.06 required for testing POD coverage"
	if $@;

# Doesn't this show you why the pod-coverage Kwalitee metric is bull?

my $covered = [ map { qr/\A$_\z/ } qw(
  compare
  constant
  create
  create_b64
  create_bin
  create_from_name
  create_from_name_b64
  create_from_name_bin
  create_from_name_hex
  create_from_name_str
  create_hex
  create_str
  from_b64string
  from_hexstring
  from_string
  new
  to_b64string
  to_hexstring
  to_string  
)];

all_pod_coverage_ok({also_private => $covered });