View | Details | Raw Unified | Return to bug 41521
Collapse All | Expand All

(-)a/Koha/Devel/Files.pm (+5 lines)
Lines 54-59 my $exceptions = { Link Here
54
                misc/cronjobs/build_browser_and_cloud.pl
54
                misc/cronjobs/build_browser_and_cloud.pl
55
            )
55
            )
56
        ],
56
        ],
57
        pod => [
58
            qw(
59
                lib/WebService/
60
            )
61
        ],
57
        core => [],
62
        core => [],
58
    },
63
    },
59
    js => {
64
    js => {
(-)a/xt/author/pod_checker.t (-1 / +1 lines)
Lines 6-12 use Test::NoWarnings; Link Here
6
use Pod::Checker;
6
use Pod::Checker;
7
use Koha::Devel::Files;
7
use Koha::Devel::Files;
8
8
9
my $dev_files = Koha::Devel::Files->new;
9
my $dev_files = Koha::Devel::Files->new( { context => 'tidy' } );
10
my @files     = $dev_files->ls_perl_files;
10
my @files     = $dev_files->ls_perl_files;
11
11
12
plan tests => scalar @files + 1;
12
plan tests => scalar @files + 1;
(-)a/xt/author/pod_coverage.t (-4 / +3 lines)
Lines 19-32 use Modern::Perl; Link Here
19
use Test::More;
19
use Test::More;
20
use Test::NoWarnings;
20
use Test::NoWarnings;
21
use Pod::Coverage;
21
use Pod::Coverage;
22
use Koha::Devel::Files;
22
23
23
# Note that we are using Pod::Coverage instead of Test::Pod::Coverage
24
# Note that we are using Pod::Coverage instead of Test::Pod::Coverage
24
# We do not want to fail if no pod exists in the file.
25
# We do not want to fail if no pod exists in the file.
25
# That could be a next step
26
# That could be a next step
26
27
27
my @files;
28
my $dev_files = Koha::Devel::Files->new( { context => 'tidy' } );
28
push @files, qx{git ls-files '*.pm'};
29
my @files     = $dev_files->ls_perl_files;
29
chomp for @files;
30
30
31
plan tests => scalar(@files) + 1;
31
plan tests => scalar(@files) + 1;
32
32
33
- 

Return to bug 41521