Index: Dev/github/GitHubBackup.pm
===================================================================
--- Dev/github/GitHubBackup.pm	(revision b8d7413d5c8b859df4d7c7f52349b9112b4acc33)
+++ Dev/github/GitHubBackup.pm	(revision 19df4003ce0a35bb63b6f9d0e2f5c6e371701b82)
@@ -33,6 +33,4 @@
 __PACKAGE__->mk_accessors( qw(
     directory
-    account
-    repository
 ));
 
@@ -48,4 +46,28 @@
     
     return $class->SUPER::new($args);
+}
+
+sub account {
+    my $self = shift;
+    my $args = shift;
+    
+    if (defined $args) {
+        $self->{repos} = undef;
+        $self->{account} = $args;
+    }
+    
+    return $self->{account};
+}
+
+sub repository {
+    my $self = shift;
+    my $args = shift;
+    
+    if (defined $args) {
+        $self->{repos} = undef;
+        $self->{repository} = $args;
+    }
+    
+    return $self->{repository};
 }
 
@@ -92,4 +114,14 @@
 }
 
+sub backup {
+    my $self = shift;
+    
+    foreach my $repos (@{$self->repos}) {
+        $repos->backup;
+    }
+    
+    return $self;
+}
+
 
 package GitHubBackup::Repository;
@@ -128,10 +160,10 @@
     if (-d "$dir") {
         local $CWD = $dir;
-        print "fetch ", $self->{full_name}, "\n";
+        print "fetch ", $dir, "\n";
         Git::Repository->run(fetch => '--all');
         return $self;
     }
     
-    print "clone ", $self->{full_name}, "\n";
+    print "clone ", $dir, "\n";
     Git::Repository->run(clone => '--mirror' => $self->{clone_url} => $dir);
     return $self;
@@ -150,4 +182,14 @@
 }
 
+sub backup {
+    my $self = shift;
+    
+    $self->clone_git;
+    $self->set_forks;
+    $self->clone_wiki;
+    $self->save_issues;
+    
+    return $self;
+}