Git::Raw::Reflog3pm

    use Git::Raw;
    # open the Git repository at $path
    my $repo = Git::Raw::Repository -> open($path);
    # get the master branch
    my $master = Git::Raw::Branch -> lookup($repo, 'master', 1);
    # retrieve the reflog for 'master'
    my $reflog = $master -> reflog;
    # print out reflog information
    my @entries = $reflog -> entries;
    foreach my $entry (@entries) {
        my $committer = $entry -> committer;
        print "Committer:", "\n";
        print "\t", "Name:   ", $committer -> name, "\n";
        print "\t", "E-Mail  ", $committer -> email, "\n";
        print "\t", "Time:   ", $committer -> time, "\n";
        print "\t", "Offset: ", $committer -> offset, "\n";
        print "\n";
        print "Message: ", $entry -> message, "\n";
        print "Old id:  ", $entry -> old_id, "\n";
        print "New id:  ", $entry -> new_id, "\n";
    }
    # add a new entry to the reflog
    my $signature = Git::Raw::Signature -> default($repo);
    $reflog -> append("Hello", $signature);
    $reflog -> write;
    # drop an entry from the reflog
    $reflog -> drop(0);
    $reflog -> write;
    # remove the reflog
    $reflog -> delete;
    $reflog -> write;