@@ -33,9 +33,7 @@ sub rep_work_current_branch {

 }

 sub branch {

-  my ($self, %opt) = @_;

-  my $git_dir = $opt{git_dir};

-  my $branch_name = $opt{name};

+  my ($self, $rep, $branch_name) = @_;

   # Branch

   $branch_name =~ s/^\*//;

@@ -43,28 +41,22 @@ sub branch {

   $branch_name =~ s/\s*$//;

   my $branch = {};

   $branch->{name} = $branch_name;

-  my $commit = $self->get_commit_new(git_dir => $git_dir, id => $branch_name);

+  my $commit = $self->get_commit_new($rep, $branch_name);

   $branch->{commit} = $commit;

   return $branch;

 }

 sub branch_status {

-  my ($self, %opt) = @_;

-  

-  my $git_dir = $opt{git_dir};

-  my $branch1 = $opt{from};

-  my $branch2 = $opt{to};

+  my ($self, $rep, $branch1, $branch2) = @_;

   # Branch status

   my $status = {ahead => 0, behind => 0};

   my @cmd = $self->cmd(

-    git_dir => $git_dir,

-    command => [

-      'rev-list',

-      '--left-right',

-      "$branch1...$branch2"

-    ]

+    $rep,

+    'rev-list',

+    '--left-right',

+    "$branch1...$branch2"

   );

   open my $fh, '-|', @cmd

     or croak "Can't get branch status: @cmd";

@@ -77,12 +69,12 @@ sub branch_status {

 }

 sub no_merged_branch_h {

-  my ($self, %opt) = @_;

+  my ($self, $rep) = @_;

   # No merged branches

   my $no_merged_branches_h = {};

   {

-    my @cmd = $self->cmd(%opt, command => ['branch', '--no-merged']);

+    my @cmd = $self->cmd($rep, 'branch', '--no-merged');

     open my $fh, '-|', @cmd or return;

     my @lines = <$fh>;

     for my $branch_name (@lines) {

@@ -98,10 +90,10 @@ sub no_merged_branch_h {

 }

 sub branches {

-  my ($self, %opt) = @_;

+  my ($self, $rep) = @_;

   # Branches

-  my @cmd = $self->cmd(%opt, command => ['branch']);

+  my @cmd = $self->cmd($rep, 'branch');

   open my $fh, '-|', @cmd or return;

   my $branches = [];

   my $start;

@@ -114,11 +106,11 @@ sub branches {

     $branch_name =~ s/\s*$//;

     # No merged branch

-    $no_merged_branches_h = $self->no_merged_branch_h(%opt)

+    $no_merged_branches_h = $self->no_merged_branch_h($rep)

       unless $start++;

     # Branch

-    my $branch = $self->branch(%opt, name => $branch_name);

+    my $branch = $self->branch($rep, $branch_name);

     $branch->{no_merged} = 1 if $no_merged_branches_h->{$branch_name};

     push @$branches, $branch;

   }

@@ -128,10 +120,10 @@ sub branches {

 }

 sub branches_count {

-  my ($self, %opt) = @_;

+  my ($self, $rep) = @_;

   # Branches count

-  my @cmd = $self->cmd(%opt, command => ['branch']);

+  my @cmd = $self->cmd($rep, 'branch');

   open my $fh, '-|', @cmd or return;

   my @branches = <$fh>;

   my $branches_count = @branches;

@@ -140,11 +132,10 @@ sub branches_count {

 }

 sub cmd {

-  my ($self, %opt) = @_;

+  my ($self, $rep, @command) = @_;

-  my $git_dir = $opt{git_dir};

-  my $work_tree = $opt{work_tree};

-  my $command = $opt{command};

+  my $git_dir = $rep->{git_dir};

+  my $work_tree = $rep->{work_tree};

   my @command_all = ($self->bin);

   if (defined $git_dir) {

@@ -153,7 +144,7 @@ sub cmd {

   if (defined $work_tree) {

     push @command_all, "--work-tree=$work_tree";

   }

-  push @command_all, @$command;

+  push @command_all, @command;

   return @command_all;

 }

@@ -189,21 +180,16 @@ sub cmd_work_dir {

 }

 sub authors {

-  my ($self, %opt) = @_;

-  

-  my $rev = $opt{rev};

-  my $file = $opt{file};

+  my ($self, $rep, $rev, $file) = @_;

   # Authors

   my @cmd = $self->cmd(

-    %opt,

-    command => [

-      'log',

-      '--format=%an',

-      $rev,

-      '--',

-      $file

-    ]

+    $rep,

+    'log',

+    '--format=%an',

+    $rev,

+    '--',

+    $file

   );

   open my $fh, "-|", @cmd

     or croak 500, "Open git-cat-file failed";

@@ -219,21 +205,16 @@ sub authors {

 }

 sub blame {

-  my ($self, %opt) = @_;

-  

-  my $rev = $opt{rev};

-  my $file = $opt{file};

+  my ($self, $rep, $rev, $file) = @_;

   # Git blame

   my @cmd = $self->cmd(

-    %opt,

-    command => [

-      'blame',

-      '--line-porcelain',

-      $rev,

-      '--',

-      $file

-    ]

+    $rep,

+    'blame',

+    '--line-porcelain',

+    $rev,

+    '--',

+    $file

   );

   open my $fh, '-|', @cmd

     or croak "Can't git blame --line-porcelain";

@@ -245,7 +226,7 @@ sub blame {

   my $min_author_time;

   my @lines = <$fh>;

-  my $enc = $self->decide_encoding($opt{user}, $opt{project}, \@lines);

+  my $enc = $self->decide_encoding($rep->{user}, $rep->{project}, \@lines);

   for my $line (@lines) {

     $line = decode($enc, $line);

     chomp $line;

@@ -300,21 +281,16 @@ sub blame {

 }

 sub blob {

-  my ($self, %opt) = @_;

-  

-  my $rev = $opt{rev};

-  my $file = $opt{file};

+  my ($self, $rep, $rev, $file) = @_;

   # Blob

-  my $hash = $self->path_to_hash($opt{user}, $opt{project}, $rev, $file, 'blob')

+  my $hash = $self->path_to_hash($rep->{user}, $rep->{project}, $rev, $file, 'blob')

     or croak 'Cannot find file';

   my @cmd = $self->cmd(

-    %opt,

-    command => [

-      'cat-file',

-      'blob',

-      $hash

-    ]

+    $rep,

+    'cat-file',

+    'blob',

+    $hash

   );

   open my $fh, '-|', @cmd

     or croak "Can't cat $file, $hash";

@@ -322,7 +298,7 @@ sub blob {

   # Format lines

   my @lines = <$fh>;

   my @new_lines;

-  my $enc = $self->decide_encoding($opt{user}, $opt{project}, \@lines);

+  my $enc = $self->decide_encoding($rep->{user}, $rep->{project}, \@lines);

   for my $line (@lines) {

     $line = decode($enc, $line);

     chomp $line;

@@ -333,36 +309,32 @@ sub blob {

 }

 sub blob_diffs {

-  my ($self, %opt) = @_;

+  my ($self, $rep, $rev1, $rev2, $diff_trees, $opt) = @_;

-  my $rev1 = $opt{from};

-  my $rev2 = $opt{to};

-  my $diff_trees = $opt{diff_trees};

-  my $ignore_space_change = $opt{ignore_space_change};

+  $opt //= {};

+  my $ignore_space_change = $opt->{ignore_space_change};

   return unless defined $rev1 && defined $rev2;

   # Diff tree

   my @cmd = $self->cmd(

-    %opt,

-    command => [

-      'diff-tree',

-      '-r',

-      '-M',

-      '--no-commit-id',

-      '--patch-with-raw',

-      ($ignore_space_change ? '--ignore-space-change' : ()),

-      $rev1,

-      $rev2,

-      '--'

-    ]

+    $rep,

+    'diff-tree',

+    '-r',

+    '-M',

+    '--no-commit-id',

+    '--patch-with-raw',

+    ($ignore_space_change ? '--ignore-space-change' : ()),

+    $rev1,

+    $rev2,

+    '--'

   );

   open my $fh, '-|', @cmd

     or croak('Open self-diff-tree failed');

   my @diff_tree;

   my @diff_tree_lines = <$fh>;

-  my $diff_tree_enc = $self->decide_encoding($opt{user}, $opt{project}, \@diff_tree_lines);

+  my $diff_tree_enc = $self->decide_encoding($rep->{user}, $rep->{project}, \@diff_tree_lines);

   for my $line (@diff_tree_lines) {

     $line = decode($diff_tree_enc, $line);

     chomp $line;

@@ -383,24 +355,22 @@ sub blob_diffs {

     # Blob diff

     my @cmd = $self->cmd(

-      %opt,

-      command => [

-        'diff-tree',

-        '-r',

-        '-M',

-        '-p',

-        ($ignore_space_change ? '--ignore-space-change' : ()),

-        $rev1,

-        $rev2,

-        '--',

-        (defined $from_file ? $from_file : ()),

-        $file

-      ]

+      $rep,

+      'diff-tree',

+      '-r',

+      '-M',

+      '-p',

+      ($ignore_space_change ? '--ignore-space-change' : ()),

+      $rev1,

+      $rev2,

+      '--',

+      (defined $from_file ? $from_file : ()),

+      $file

     );

     open my $fh, '-|', @cmd

       or croak('Open self-diff-tree failed');

     my @lines = <$fh>;

-    my $enc = $self->decide_encoding($opt{user}, $opt{project}, \@lines);

+    my $enc = $self->decide_encoding($rep->{user}, $rep->{project}, \@lines);

     @lines = map { decode($enc, $_) } @lines;

     close $fh;

     my ($lines, $diff_info) = $self->parse_blob_diff_lines(\@lines);

@@ -433,22 +403,21 @@ sub blob_diffs {

 }

 sub blob_is_image {

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

+  my $self = shift;

-  my $mime_type = $self->blob_mime_type($user, $project, $rev, $file);

+  my $mime_type = $self->blob_mime_type(@_);

   return ($mime_type || '') =~ m#^image/#;

 }

 sub blob_mime_type {

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

+  my ($self, $rep, $rev, $file) = @_;

   # Blob

-  my $hash = $self->path_to_hash($user, $project, $rev, $file, 'blob')

+  my $hash = $self->path_to_hash($rep->{user}, $rep->{project}, $rev, $file, 'blob')

     or croak 'Cannot find file';

-  my @cmd = $self->cmd_rep(

-    $user,

-    $project,

+  my @cmd = $self->cmd(

+    $rep,

     'cat-file',

     'blob',

     $hash

@@ -475,10 +444,10 @@ sub blob_mime_type {

 }

 sub blob_content_type {

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

+  my $self = shift;

   # Content type

-  my $type = $self->blob_mime_type($user, $project, $rev, $file);

+  my $type = $self->blob_mime_type(@_);

   if ($type eq 'text/plain') {

     $type .= "; charset=" . $self->default_encoding;

   }

@@ -595,7 +564,7 @@ sub exists_branch {

 sub delete_branch {

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

-  my $branches = $self->branches(%{$self->app->rep_info($user, $project)});

+  my $branches = $self->branches($self->app->rep_info($user, $project));

   my $exists;

   for my $b (@$branches) {

     if ($branch eq $b->{name}) {

@@ -1268,24 +1237,20 @@ sub get_commit {

 }

 sub get_commit_new {

-  my ($self, %opt) = @_;

+  my ($self, $rep, $id) = @_;

-  my $git_dir = $opt{git_dir};

-  my $work_tree = $opt{work_tree};

-  my $id = $opt{id};

+  my $git_dir = $rep->{git_dir};

+  my $work_tree = $rep->{work_tree};

   # Git rev-list

   my @cmd = $self->cmd(

-    git_dir => $git_dir,

-    work_tree => $work_tree,

-    command => [

-      'rev-list',

-      '--parents',

-      '--header',

-      '--max-count=1',

-      $id,

-      '--'

-    ]

+    $rep,

+    'rev-list',

+    '--parents',

+    '--header',

+    '--max-count=1',

+    $id,

+    '--'

   );

   open my $fh, '-|', @cmd

     or croak 'Open git-rev-list failed';

@@ -5,7 +5,7 @@

   my $git = app->git;

   # Branches

-  my $branches = $git->branches(%{$self->app->rep_info($user, $project)}) || [];

+  my $branches = $git->branches($self->app->rep_info($user, $project)) || [];

   my @branch_names = map { $_->{name} } @$branches;

   # Tags

@@ -113,7 +113,7 @@

                   my $project = $project->{name};

                   my $rev = app->manager->default_branch($user, $project);

                   my $desc = app->git->description($user, $project);

-                  my $branches = app->git->branches(%{$self->app->rep_info($user, $project)});

+                  my $branches = app->git->branches($self->app->rep_info($user, $project));

                   my $commit;

                   if (@$branches) {

                     $commit = app->git->get_commit($user, $project, $rev);

@@ -15,7 +15,7 @@

   my $commit = $git->last_change_commit($user, $project, $rev, $file);

   # Authors

-  my $authors = $git->authors(%{$self->app->rep_info($user, $project)}, rev => $rev, file => $file);

+  my $authors = $git->authors($self->app->rep_info($user, $project), $rev, $file);

   # File size

   my $file_size = $git->blob_size($user, $project, $rev, $file);

@@ -25,10 +25,10 @@

   my $file_type = $git->file_type_long($mode);

   # MIME type

-  my $mime_type = $git->blob_mime_type($user, $project, $rev, $file);

+  my $mime_type = $git->blob_mime_type(app->rep_info($user, $project), $rev, $file);

   # Blame

-  my $blame = $git->blame(%{app->rep_info($user, $project)}, rev => $rev, file => $file);

+  my $blame = $git->blame(app->rep_info($user, $project), $rev, $file);

   my $blame_lines = $blame->{lines};

   my $blame_min_author_time = $blame->{min_author_time};

   my $blame_max_author_time = $blame->{max_author_time};

@@ -22,7 +22,7 @@

   )->value;

   # Authors

-  my $authors = $git->authors(%{$self->app->rep_info($user, $project)}, rev => $rev, file => $file);

+  my $authors = $git->authors($self->app->rep_info($user, $project), $rev, $file);

   # File size

   my $file_size = $git->blob_size($user, $project, $rev, $file);

@@ -32,11 +32,11 @@

   my $file_type = $git->file_type_long($mode);

   # MIME type

-  my $mime_type = $git->blob_mime_type($user, $project, $rev, $file);

+  my $mime_type = $git->blob_mime_type(app->rep_info($user, $project), $rev, $file);

   # Blob lines(only text)

   my $lines;

-  $lines = $git->blob(%{app->rep_info($user, $project)}, rev => $rev, file => $file) if $mime_type =~ /^text/;

+  $lines = $git->blob(app->rep_info($user, $project), $rev, $file) if $mime_type =~ /^text/;

   # Variables for included template

   stash(id => $rev, project => $project, rev => $rev);

@@ -55,7 +55,7 @@

   # Default branch

   my $default_branch_name = app->manager->default_branch($user, $project);

-  my $default_branch = $git->branch(%{$self->app->rep_info($user, $project)}, name => $default_branch_name);

+  my $default_branch = $git->branch($self->app->rep_info($user, $project), $default_branch_name);

   # Branches

   my $branch_types;

@@ -70,16 +70,16 @@

   my $page_count = 20;

   my $skip = $page_count * ($page - 1);

-  my $branches = $git->branches(%{$self->app->rep_info($user, $project)});

+  my $branches = $git->branches($self->app->rep_info($user, $project));

   my $max = 0;

   my $active_count = 0;

   my $stale_count = 0;

   my $all_count = 0;

   for my $branch (@$branches) {

     $branch->{status} = $git->branch_status(

-      %{$self->app->rep_info($user, $project)},

-      from => $default_branch->{name},

-      to => $branch->{name}

+      $self->app->rep_info($user, $project),

+      $default_branch->{name},

+      $branch->{name}

     );

     $max = $branch->{status}{ahead} if $max < $branch->{status}{ahead};

     $max = $branch->{status}{behind} if $max < $branch->{status}{behind};

@@ -42,7 +42,7 @@

   }

   # Branches

-  my $branches = $git->branches($user, $project);

+  my $branches = $git->branches(app->rep_info($user, $project));

   @$branches = sort { $a->{commit}{age} <=> $b->{commit}{age} } @$branches;

   # Variables

@@ -16,7 +16,7 @@

   # Branches

   my $git = app->git;

-  my $remote_branches = $git->branches(%{$self->app->rep_info($remote_user, $remote_project)});

+  my $remote_branches = $git->branches($self->app->rep_info($remote_user, $remote_project));

   my $remote_branch_names = [map { $_->{name} } @$remote_branches];

   my $op = param('op') || '';

@@ -73,7 +73,7 @@

     if ($validation->is_valid) {

       # Check branch name

-      my $branches = $git->branches(%{$self->app->rep_info($user, $project)});

+      my $branches = $git->branches($self->app->rep_info($user, $project));

       if (!$force && grep { $branch eq $_->{name} } @$branches) {

         $errors = ["Branch \"$branch\" is already exists. If you want to import this branch, check force option."];

@@ -21,21 +21,22 @@

   if ($blob_diff->{binary}) {

     if ($status eq 'A') {

-      if ($git->blob_is_image($user, $project, $rev, $file)) {

+      if ($git->blob_is_image(app->rep_info($user, $project), $rev, $file)) {

         $binary_rev_shown = 1;

       }

       else {

         $binary_not_shown = 1;

       }

     } elsif ($status eq 'D') {

-      if ($git->blob_is_image($user, $project, $from_rev, $file)) {

+      if ($git->blob_is_image(app->rep_info($user, $project), $from_rev, $file)) {

         $binary_from_rev_shown = 1;

       }

       else {

         $binary_not_shown = 1;

       }

     } else {

-      if ($git->blob_is_image($user, $project, $from_rev, $file) && $git->blob_is_image($user, $project, $from_rev, $file)) {

+      if ($git->blob_is_image(app->rep_info($user, $project), $from_rev, $file)

+        && $git->blob_is_image(app->rep_info($user, $project), $from_rev, $file)) {

         $binary_from_rev_shown = 1;

         $binary_rev_shown = 1;

       }

@@ -36,11 +36,11 @@

   # Get blob diffs

   my $blob_diffs = $git->blob_diffs(

-    %{app->rep_info($user, $project)},

-    from => $from_rev,

-    to => $rev,

-    diff_trees => $diff_trees,

-    ignore_space_change => $ignore_space_change

+    app->rep_info($user, $project),

+    $from_rev,

+    $rev,

+    $diff_trees,

+    {ignore_space_change => $ignore_space_change}

   ) || [];

   my $blob_diffs_h = {};

@@ -8,7 +8,7 @@

   my $type = '';

   my $lines;

   my $readme_path = (defined $dir && $dir ne '') ? "$dir/README" : 'README';

-  eval { $lines = app->git->blob(%{app->rep_info($user, $project)}, rev => $rev, file => $readme_path) };

+  eval { $lines = app->git->blob(app->rep_info($user, $project), $rev, $readme_path) };

   my $readme_e;

   if ($lines) {

@@ -18,7 +18,7 @@

     $readme_e =~ s#(^|\s|[^\x00-\x7F])(http(?:s)?://.+?)($|\s|[^\x00-\x7F])#$1<a href="$2">$2</a>$3#msg;

   }

   else {

-    eval { $lines = app->git->blob(%{app->rep_info($user, $project)}, rev => $rev, file => "$readme_path.md") };

+    eval { $lines = app->git->blob(app->rep_info($user, $project), $rev, "$readme_path.md") };

     if ($lines) {

       $type = 'markdown';

       my $readme = join "\n", @$lines;

@@ -3,7 +3,7 @@

   my $api = gitprep_api;

   # Branches

-  my $branches = [map { $_->{name} } @{app->git->branches(%{$self->app->rep_info($user, $project)})}];

+  my $branches = [map { $_->{name} } @{app->git->branches($self->app->rep_info($user, $project))}];

   # Members

   my $members = app->manager->members($user, $project);

@@ -11,7 +11,7 @@

   # Members branches

   for my $member (@$members) {

     my $branches = [

-      map { $_->{name} } @{app->git->branches(%{$self->app->rep_info($member->{id}, $member->{project})})}

+      map { $_->{name} } @{app->git->branches($self->app->rep_info($member->{id}, $member->{project}))}

     ];

     $member->{branches} = $branches;

   }

@@ -12,7 +12,7 @@

   my $blob_raw = $git->blob_raw($user, $project, $rev, $file);

   # Content type

-  my $type = $git->blob_content_type($user, $project, $rev, $file);

+  my $type = $git->blob_content_type(app->rep_info($user, $project), $rev, $file);

   # File name

   my $file_name = $rev;

@@ -229,7 +229,7 @@

             <li id="default-branch">

               Default Branch

               <%

-                my $branches = $git->branches(%{$self->app->rep_info($user, $project)});

+                my $branches = $git->branches($self->app->rep_info($user, $project));

                 my $branch_names = [map { $_->{name} } @$branches];

                 my $default_branch = app->manager->default_branch($user, $project);

                 push @$branch_names, $default_branch unless @$branch_names;

@@ -15,7 +15,7 @@

   my $file_base = File::Basename::basename $file;

   # Blob lines

-  my $lines = $git->blob(%{app->rep_info($user, $project)}, rev => $rev, file => '.gitmodules');

+  my $lines = $git->blob(app->rep_info($user, $project), $rev, '.gitmodules');

   my $submodule_rep_url;

   my $match;

@@ -71,7 +71,7 @@

     . ($ssh_port ? ":$ssh_port" : '') . "$ssh_rep_url_base/$user/$project.git";

   my $branches = stash('branches');

-  my $branches_count = app->git->branches_count(%{$self->app->rep_info($user, $project)});

+  my $branches_count = app->git->branches_count($self->app->rep_info($user, $project));

   my $default_branch_name = app->manager->default_branch($user, $project);

   my $tags_count = app->git->tags_count($user, $project);