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

Timestamp:

Aug 18, 2013 4:02:01 AM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

19df400

Parents:

19233f5

Message:

remove super and give closure for $self->directory

File:

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

Dev/github/GitHubBackup.pm

@@ -58 +58 @@
         $self->{repos} = [
             GitHubBackup::Repository->new({
-                __super   => $self,
+                directory => sub {$self->directory},
                 full_name => "$account/$repository",
             })
@@ -82 +82 @@
         push @{$self->{repos}},
             GitHubBackup::Repository->new({
-                __super   => $self,
+                directory => sub {$self->directory},
                 full_name => $repos->{full_name},
                 clone_url => $repos->{clone_url},
@@ -103 +103 @@
 use File::chdir;
 
+
 sub new {
     my $class = shift;
@@ -115 +116 @@
 }
 
+sub directory {
+    my $self = shift;
+    
+    return $self->{directory}->();
+}
+
 sub clone_git {
     my $self = shift;
     
-    my $dir = $self->{__super}->directory .'/'. $self->{full_name};
+    my $dir = $self->directory .'/'. $self->{full_name};
     if (-d "$dir") {
         local $CWD = $dir;