Changeset fc647d5 in lab.git for Dev/github/GitHubBackup.pm

Timestamp:

Aug 19, 2013 8:34:13 AM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

55d0513

Parents:

6473c3b

Message:

utils::get gives hashref tree from API

File:

• Dev/github/GitHubBackup.pm (modified) (3 diffs)

Dev/github/GitHubBackup.pm

@@ -22 +22 @@
 }
 
+sub get {
+    my $url = shift;
+    
+    my $page = 1;
+    my $data;
+    while(1) {
+        my $result = json_api("$url?per_page=100&page=$page");
+        if (ref($result) eq 'ARRAY' && scalar @$result > 0) {
+            push @$data, @$result;
+            $page++;
+            
+            next;
+        }
+        last;
+    }
+    
+    return $data;
+}
 
 package GitHubBackup;
@@ -91 +109 @@
     }
     
-    my $page = 1;
-    my @repos;
-    while (1) {
-        my $result = utils::json_api("/users/$account/repos?per_page=100&page=$page");
-        if (ref($result) eq 'ARRAY' && scalar @$result > 0) {
-            push @repos, @$result;
-            $page++;
-            
-            next;
-        }
-        last;
-    }
-    
-    foreach my $repos (@repos) {
+    my $result = utils::get("/users/$account/repos");
+    foreach my $repos (@$result) {
         push @{$self->{repos}},
             GitHubBackup::Repository->new({
@@ -196 +202 @@
     return $self->{forks} if ($self->{forks});
     
-    my $page = 1;
-    while (1) {
-        my $result = utils::json_api("/repos/" . $self->{full_name} . "/forks?per_page=100&page=$page");
-        if (ref($result) eq 'ARRAY' && scalar @$result > 0) {
-            push @{$self->{forks}}, @$result;
-            $page++;
-            
-            next;
-        }
-        last;
-    }
+    $self->{forks} = utils::get("/repos/" . $self->{full_name} . "/forks");
     
     return $self;