Changeset 13e2400 in lab.git for Dev/github/GitHubBackup.pm

Timestamp:

Aug 21, 2013 4:44:27 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

4351b0c

Parents:

f7f894d

git-author:

Ken-ichi Mito <mitty@…> (08/21/13 16:38:15)

git-committer:

Ken-ichi Mito <mitty@…> (08/21/13 16:44:27)

Message:

change package utils to GitHubBackup::API

• add GitHubBackup::API->access_token to use OAuth with json api

File:

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

Dev/github/GitHubBackup.pm

@@ -1 @@
-package utils;
+package GitHubBackup::API;
 use strict;
 use warnings;
@@ -8 +8 @@
 use JSON;
 
+sub new {
+    my $class = shift;
+    my $args  = shift;
+    
+    return bless $args, $class;
+}
+
 sub json_api {
-    my $url = shift;
+    my $self = shift;
+    my $url  = shift;
     
     my $ua = LWP::UserAgent->new;
@@ -24 +32 @@
 
 sub get {
-    my $url = shift;
+    my $self = shift;
+    my $url  = shift;
     my %parameters = @_;
     
@@ -35 +44 @@
     my $data = [];
     while(1) {
-        my $result = json_api("$url?per_page=100&page=$page$parameters");
+        my $result = $self->json_api("$url?per_page=100&page=$page$parameters");
         if (ref($result) eq 'ARRAY' && scalar @$result > 0) {
             push @$data, @$result;
@@ -48 +57 @@
 }
 
+sub access_token {
+    my $self = shift;
+    
+    return $self->{access_token}->();
+}
+
+
 package GitHubBackup;
 
@@ -100 +116 @@
 }
 
+sub access_token {
+    my $self = shift;
+    my $args = shift;
+    
+    if (defined $args) {
+        $self->{access_token} = $args;
+    }
+    
+    return $self->{access_token};
+}
+
+sub api {
+    my $self = shift;
+    
+    unless ($self->{api}) {
+        $self->{api} = GitHubBackup::API->new({
+            access_token => sub {$self->access_token},
+        });
+    }
+    
+    return $self->{api};
+}
+
 sub repos {
     my $self = shift;
@@ -109 +148 @@
     my $result;
     if (my $repository = $self->repository) {
-        $result = [ utils::json_api("/repos/$account/$repository") ];
+        $result = [ $self->api->json_api("/repos/$account/$repository") ];
     }
     else {
-        $result = utils::get("/users/$account/repos");
+        $result = $self->api->get("/users/$account/repos");
     }
     
@@ -119 +158 @@
             GitHubBackup::Repository->new({
                 directory => sub {$self->directory},
+                api       => sub {$self->api},
                 repos     => $repos,
             })
@@ -194 +234 @@
 }
 
+sub api {
+    my $self = shift;
+    
+    return $self->{api}->();
+}
+
 sub message {
     my $self = shift;
@@ -237 +283 @@
     return $self->{forks} if ($self->{forks});
     
-    $self->{forks} = utils::get("/repos/" . $self->full_name . "/forks");
+    $self->{forks} = $self->api->get("/repos/" . $self->full_name . "/forks");
     
     return $self->{forks};
@@ -292 +338 @@
     return $self->{issues} if ($self->{issues});
     
-    my $open   = utils::get("/repos/" . $self->full_name . "/issues");
-    my $closed = utils::get("/repos/" . $self->full_name . "/issues", state => 'closed');
+    my $open   = $self->api->get("/repos/" . $self->full_name . "/issues");
+    my $closed = $self->api->get("/repos/" . $self->full_name . "/issues", state => 'closed');
     
     if ($open)   { push @{$self->{issues}}, @$open }