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