@@ -42,24 +42,21 @@ sub coverage {
4242
4343sub get {
4444 my ( $self , $author , $release ) = @_ ;
45- $self -> request(" /release/$author /$release " )
46- -> then( \&_with_distnameinfo )
45+ $self -> request(" /release/$author /$release " )-> then( \&_with_distnameinfo )
4746 -> then( \&_fix_dependency );
4847}
4948
5049sub latest_by_author {
5150 my ( $self , $pauseid ) = @_ ;
5251 $self -> request(" /release/latest_by_author/$pauseid " )
53- -> then( \&_with_distnameinfo )
54- -> then( $self -> add_river );
52+ -> then( \&_with_distnameinfo )-> then( $self -> add_river );
5553}
5654
5755sub all_by_author {
5856 my ( $self , $pauseid , $page , $page_size ) = @_ ;
5957 $self -> request( " /release/all_by_author/$pauseid " ,
6058 undef , { page => $page , page_size => $page_size } )
61- -> then( \&_with_distnameinfo )
62- -> then( $self -> add_river );
59+ -> then( \&_with_distnameinfo )-> then( $self -> add_river );
6360}
6461
6562sub recent {
@@ -89,8 +86,7 @@ sub modules {
8986sub find {
9087 my ( $self , $distribution ) = @_ ;
9188 $self -> request(" /release/latest_by_distribution/$distribution " )
92- -> then( \&_with_distnameinfo )
93- -> then( \&_fix_dependency );
89+ -> then( \&_with_distnameinfo )-> then( \&_fix_dependency );
9490}
9591
9692# stolen from Module/requires
@@ -127,8 +123,7 @@ sub interesting_files {
127123
128124sub versions {
129125 my ( $self , $dist ) = @_ ;
130- $self -> request(" /release/versions/$dist " )
131- -> then( \&_with_distnameinfo )
126+ $self -> request(" /release/versions/$dist " )-> then( \&_with_distnameinfo )
132127 -> then( sub {
133128 my ($data ) = @_ ;
134129 $data -> {versions } = delete $data -> {releases };
0 commit comments