1use strict;
2
3use Test::More;
4eval "use Test::Pod::Coverage 1.06";
5plan skip_all => "Test::Pod::Coverage 1.06 required for testing POD coverage"
6	if $@;
7
8# Doesn't this show you why the pod-coverage Kwalitee metric is bull?
9
10my $covered = [ map { qr/\A$_\z/ } qw(
11  compare
12  constant
13  create
14  create_b64
15  create_bin
16  create_from_name
17  create_from_name_b64
18  create_from_name_bin
19  create_from_name_hex
20  create_from_name_str
21  create_hex
22  create_str
23  from_b64string
24  from_hexstring
25  from_string
26  new
27  to_b64string
28  to_hexstring
29  to_string  
30)];
31
32all_pod_coverage_ok({also_private => $covered });
33