1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use strict;
use Test::More;
plan skip_all => "Pod coverage tests are not active. Please set \$ENV{AUTHOR_TESTING} to activate."
unless $ENV{AUTHOR_TESTING};
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 });
|
