File: 99-pod.t

package info (click to toggle)
libalzabo-perl 0.86-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,116 kB
  • ctags: 767
  • sloc: perl: 14,549; makefile: 46
file content (21 lines) | stat: -rw-r--r-- 465 bytes parent folder | download | duplicates (24) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl -w
use strict;
use vars qw( @files );

BEGIN {
    eval "require File::Find::Rule";
    if ($@)
    {
        print "1..1\nok 1 # skip File::Find::Rule not installed\n";
        exit;
    }
    @files = File::Find::Rule->file()->name( '*.pm', '*.pod' )->in( 'blib/lib' );
}

use Test::More tests => scalar @files;

eval "use Test::Pod 0.95";
SKIP: {
    skip "Test::Pod 0.95 not installed.", scalar @files if $@;
    pod_file_ok( $_ ) for @files;
}