move find_changes_files from model to query

Author: haarg

lib/MetaCPAN/Document/File/Set.pm

@@ -18,6 +18,7 @@ has query_file => (
     builder => '_build_query_file',
     handles => [ qw(
         dir
+        find_changes_files
         interesting_files
         files_by_category
     ) ],
@@ -412,13 +413,5 @@ sub autocomplete_suggester {
     };
 }
 
-sub find_changes_files {
-    my ( $self, $author, $release ) = @_;
-    my $result = $self->files_by_category( $author, $release, ['changelog'],
-        { _source => true } );
-    my ($file) = @{ $result->{categories}{changelog} || [] };
-    return $file;
-}
-
 __PACKAGE__->meta->make_immutable;
 1;

lib/MetaCPAN/Query/File.pm

@@ -348,5 +348,13 @@ sub files_by_category {
     return $return;
 }
 
+sub find_changes_files {
+    my ( $self, $author, $release ) = @_;
+    my $result = $self->files_by_category( $author, $release, ['changelog'],
+        { _source => true } );
+    my ($file) = @{ $result->{categories}{changelog} || [] };
+    return $file;
+}
+
 __PACKAGE__->meta->make_immutable;
 1;