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 => [ 
         qw/    escape_ctcp
            escape_lowlevel
               filter_ctcp_text_attr_bogus
                  unescape_ctcp
                     unescape_lowlevel
/
      ]
   }
);

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

pod_coverage_ok (
   'Net::IRC3::Client::Connection', {
      private => [ qr/^_/, qr/_cb$/ ]
   }
);
Revision:	1.4
Committed:	Wed Jul 9 09:48:20 2008 UTC (18 years, 2 months ago) by elmex
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.3:	+8 -1 lines
Log Message:	non blocknig connect tested => ok
#	User	Rev	Content
1	elmex	1.3	#!perl
2			use strict;
3			use warnings;
4			use Test::More;
5	elmex	1.1
6			eval "use Test::Pod::Coverage 1.04";
7			plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
8	elmex	1.3
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	elmex	1.4	private => [
20			qw/ escape_ctcp
21			escape_lowlevel
22			filter_ctcp_text_attr_bogus
23			unescape_ctcp
24			unescape_lowlevel
25			/
26			]
27	elmex	1.3	}
28			);
29
30			pod_coverage_ok (
31			'Net::IRC3::Connection', {
32			private => [ qr/^_/ ]
33			}
34			);
35
36			pod_coverage_ok (
37			'Net::IRC3::Client::Connection', {
38			private => [ qr/^_/, qr/_cb$/ ]
39			}
40			);