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

(-)a/Koha/Devel/Files.pm (-20 / +9 lines)
Lines 13-19 Koha::Devel::Files - A utility module for managing and filtering file lists in t Link Here
13
13
14
    my $file_manager = Koha::Devel::Files->new( { context => 'tidy' } );
14
    my $file_manager = Koha::Devel::Files->new( { context => 'tidy' } );
15
15
16
    my @perl_files = $file_manager->ls_perl_files($git_range);
16
    my @perl_files = $file_manager->ls_perl_files();
17
    my @js_files   = $file_manager->ls_js_files();
17
    my @js_files   = $file_manager->ls_js_files();
18
    my @tt_files   = $file_manager->ls_tt_files();
18
    my @tt_files   = $file_manager->ls_tt_files();
19
19
Lines 186-215 sub ls_files { Link Here
186
186
187
=head2 ls_perl_files
187
=head2 ls_perl_files
188
188
189
    my @perl_files = $file_manager->ls_perl_files($git_range);
189
    my @perl_files = $file_manager->ls_perl_files();
190
190
191
Lists Perl files (with extensions .pl, .PL, .pm, .t) that have been modified within a specified Git range. If no range is provided, it lists all Perl files, excluding those specified in the exceptions.
191
Lists Perl files (with extensions .pl, .PL, .pm, .t) in the repository, excluding those specified in the exceptions.
192
192
193
=cut
193
=cut
194
194
195
sub ls_perl_files {
195
sub ls_perl_files {
196
    my ( $self, $git_range ) = @_;
196
    my ($self) = @_;
197
    my @files;
197
    my @files;
198
    if ($git_range) {
198
    my $cmd =
199
        $git_range =~ s|\.\.| |;
199
        sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s},
200
        my @modified_files = qx{git diff --name-only $git_range};
200
        $self->build_git_exclude('pl');
201
        chomp @modified_files;
201
    @files = qx{$cmd};
202
        push @files, grep { -e && /\.(pl|PL|pm|t)$/ } @modified_files;
202
    chomp for @files;
203
        push @files, grep { -e && /^(svc|opac\/svc)/ } @modified_files;
204
        my @exception_files = $exceptions->{pl}->{ $self->{context} };
205
        @files = array_minus( @files, @exception_files );
206
    } else {
207
        my $cmd =
208
            sprintf q{git ls-files '*.pl' '*.PL' '*.pm' '*.t' svc opac/svc opac/unapi debian/build-git-snapshot %s},
209
            $self->build_git_exclude('pl');
210
        @files = qx{$cmd};
211
        chomp for @files;
212
    }
213
    return @files;
203
    return @files;
214
}
204
}
215
205
216
- 

Return to bug 41274