Net-IRC3/t/pod-coverage.t

#!perl
use strict;
use warnings;
use Test::More;

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

plan tests => 4;

pod_coverage_ok (
   'Net::IRC3', {
      private => [ ]
   }
);

pod_coverage_ok (
   'Net::IRC3::Util', {
      private => [ ]
   }
);

pod_coverage_ok (
   'Net::IRC3::Connection', {
      private => [ qr/^_/ ]
   }
);

pod_coverage_ok (
   'Net::IRC3::Client::Connection', {
      private => [ qr/^_/, qr/_cb$/ ]
   }
);
Revision:	1.3
Committed:	Fri Feb 23 20:14:58 2007 UTC (19 years, 6 months ago) by elmex
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.2:	+30 -3 lines
Log Message:	added some tests and fixed quite some bugs and added missing documentation.
#	Content
1	#!perl
2	use strict;
3	use warnings;
4	use Test::More;
5
6	eval "use Test::Pod::Coverage 1.04";
7	plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
8
9	plan tests => 4;
10
11	pod_coverage_ok (
12	'Net::IRC3', {
13	private => [ ]
14	}
15	);
16
17	pod_coverage_ok (
18	'Net::IRC3::Util', {
19	private => [ ]
20	}
21	);
22
23	pod_coverage_ok (
24	'Net::IRC3::Connection', {
25	private => [ qr/^_/ ]
26	}
27	);
28
29	pod_coverage_ok (
30	'Net::IRC3::Client::Connection', {
31	private => [ qr/^_/, qr/_cb$/ ]
32	}
33	);