Merge pull request #6 from ambs/pr/pod-coverage

Update POD coverage test to ignore private attributes (#6 from Alberto Simões).
kasei · Feb 2, 2016 · c4d9ee3 · c4d9ee3
2 parents 3fec902 + f3f9517
commit c4d9ee3
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/lib/IRI.pm b/lib/IRI.pm
@@ -1,5 +1,5 @@
 =encoding utf8
-	
+
 =head1 NAME
 
 IRI - Internationalized Resource Identifiers
@@ -12,12 +12,12 @@ This document describes IRI version 0.004
 
   use IRI;
   
-  my $i	= IRI->new(value => 'https://example.org:80/index#frag');
+  my $i = IRI->new(value => 'https://example.org:80/index#frag');
   say $i->scheme; # 'https'
   say $i->path; # '/index'
 
   my $base = IRI->new(value => "http://www.hestebedg\x{e5}rd.dk/");
-  my $i	= IRI->new(value => '#frag', base => $base);
+  my $i = IRI->new(value => '#frag', base => $base);
   say $i->abs; # 'http://www.hestebedgård.dk/#frag'
 
 =head1 DESCRIPTION

diff --git a/xt/pod-coverage.t b/xt/pod-coverage.t
@@ -8,10 +8,15 @@ use Module::Load::Conditional qw[can_load];
 my @modules	= all_modules();
 foreach my $mod (@modules) {
 	if (can_load( modules => { $mod => 0 } )) {
-		pod_coverage_ok($mod, { also_private => [ qr{^[A-Z][A-Z0-9_]*$} ] });
+		pod_coverage_ok($mod, { 
+			also_private => [ qw.base components has_base value., qr{^[A-Z][A-Z0-9_]*$} ] 
+		});
 	} else {
 		note("Ignoring $mod for POD coverage tests (failed to load)");
 	}
 }
 
 done_testing();
+
+
+