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
|
#
#===============================================================================
#
# FILE: pod.t
#
# DESCRIPTION: Testing POD
#
# FILES: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Dr. Fritz Mehner (fgm), mehner.fritz@web.de
# ORGANIZATION:
# VERSION: 1.0
# CREATED: 06.06.2007 19:51:15 CEST
# REVISION: ---
#===============================================================================
use strict;
use warnings;
use Test::More;
eval "use Test::Pod 1.0";
plan skip_all => "Test::Pod 1.0 required for testing POD" if $@;
my $login;
eval { $login = $ENV{USER} };
plan skip_all => "Only the author needs to check the POD documentation." if ($@ || $login ne "mehner" );
all_pod_files_ok();
|
