|
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 |
- |
|
|