What is the process for emulating a "git pull" from remote about p5-git-raw HOT 5 CLOSED

my $id = $refs->{$ref}->{'id'};
my $merge_source = $self->repository->lookup($id);

my $merge_source =  $self->repository->lookup($ref);

$repo -> checkout($repo -> head($master), {
    checkout_strategy => {
        'force' => 1
}});

my $branch3 = $repo -> branch('branch3', $initial_head -> target);
my $r = $repo -> merge_analysis($branch3);
is_deeply $r, ['normal'];

$repo -> merge($branch3, {
    'favor' => 'theirs',
    }, {
    checkout_strategy => {
        'safe_create' => 1
    }
});

sub pull {
    my ( $self, $remote, $target_branch ) = @_;
    if ( not $remote ) {
        $remote = "origin";
        $target_branch = "devel";
    }
    my $rem = $self->remote($remote);
    my $branch = $self->get_branch($target_branch);
    $rem->callbacks({ 
        credentials => sub { $self->{_cred} },
        update_tips => sub {
            my ( $ref, $a , $b ) = @_;
            $self->log('debug',"Updated: %s ( %s -> %s )",$ref,$a,$b);
        }
    });
    $rem->fetch();
    my $refs = $rem->ls;
    my $pat = qr|^refs/heads/($target_branch)$|;
    foreach my $ref ( keys %{$refs} ) {
        if ( $ref =~ $pat ) {
            my $id = $refs->{$ref}->{'id'};
            my $success = try {
                $ref =~ s|$pat|refs/remotes/$remote/$1|; 
                my $merge_source = Git::Raw::Reference->lookup($ref,$self->repository);
                my $anal = $self->repository->merge_analysis($merge_source);
                my $ff = grep { /fast_forward/ } @{$anal};
                my $mopt = { favor => 'theirs' };
                my $copt = { checkout_strategy => { safe_create => 1 }};
                my $merge = $self->repository->merge($merge_source,$mopt,$copt);

                if ( not $ff ) {
                    $self->log("debug","merging %s into current HEAD",$id);
                } else {
                    $self->log("info","updating HEAD to $id using fast-forward");
                }
                $self->log("trace",Dumper $merge);
                return $id;
            } catch {
                $self->log('crit',"failed to merge %s: %s",$ref, $_->message);
                return undef;
            };
            $self->log('warn',"merger of upstream changes was unsuccessful due to one or more errors") if not $success;
        } else {
            $self->log("info","Not analyzing $ref");
        }
    }
    $rem->disconnect;
    return $rem;
}

is $index -> has_conflicts, 0;
$repo -> merge($branch2);
is $index -> has_conflicts, 1;

write_file($file1, 'this is file1 on branch1 and branch2');
$index -> add('test1');
$index -> write;

my $merge_msg = $repo -> message();
is $merge_msg, "Merge branch 'branch2'\n\nConflicts:\n\ttest1\n";

my $target = $master -> target;
$commit = $repo -> commit("Merge commit!", $me, $me, [$target, $commit2],
    $index -> write_tree);