repo.or.cz
/
Data-Peek.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Old(er) perls (e.g. 5.8.0) do not like \my $x, more
[Data-Peek.git]
/
t
/
01_pod.t
blob
02d7b6e72e4478aefacec572f7af5c1ca2433ae4
1
#!/usr/bin/perl
2
3
use
strict
;
4
$^
W
=
1
;
5
6
use
Test
::
More
;
7
8
eval
"use Test::Pod::Coverage tests => 1"
;
9
plan skip_all
=>
"Test::Pod::Covarage required for testing POD Coverage"
if
$
@
;
10
pod_coverage_ok
(
"Data::Peek"
,
"Data::Peek is covered"
);