@@ -23,6 +23,7 @@ has 'git';

 has 'manager';

 has 'vc';

+

 use constant BUFFER_SIZE => 8192;

 sub startup {

@@ -122,6 +122,18 @@ sub branches_count {

   return $branches_count;

 }

+sub cmd_clone {

+  my ($self, $user, $project) = @_;

+

+  # Repository

+  my $home = $self->rep_home;

+  my $rep = "$home/$user/$project.git";

+  

+  # Working directory

+  my $working_dir = $self->app->home->rel_file("/data/work/$user/$project");

+  

+  return ($self->bin, 'clone', $rep, $working_dir)

+}

 sub cmd {

   my ($self, $user, $project, @cmd) = @_;

@@ -18,7 +18,7 @@ has 'authorized_keys_file';

 sub working_home {

   my ($self, $user, $project) = @_;

-  my $working_home = app->home->rel_file("data/work/$user/$project");

+  my $working_home = $self->app->home->rel_file("data/work/$user/$project");

   return $working_home;

 }

@@ -61,6 +61,10 @@

   my $can_merge;

   if ($can_open_pull_request) {

+    # Clone repository to working directory if it don't exist

+    # my @git_clone_cmd = $self->app->git->cmd_clone($user, $project);

+    # Gitprep::Util::run_command(@git_clone_cmd)

+    #  or die "Can't git clone: @git_clone_cmd";

   }

   layout 'common', title => "Comparing $from_rev...$rev \x{30fb} $user/$project";

@@ -369,7 +369,6 @@ note 'Compare page';

   # Page access (branch name long)

   $t->get_ok("/$user/$project/compare/refs/heads/b1...refs/heads/master");

   $t->content_like(qr#renamed dir/a\.txt to dir/b\.txt and added text#);

-

 }

 note 'API References';