Add support for git_odb_foreach about p5-git-raw HOT 23 CLOSED

$ perl -MGit::Raw -E 'Git::Raw::Repository->open(".")->odb->foreach( sub { say $_[0]; return } )'
cc5c34f14d06c688b259a884f15b50f3643f5579
...

$ perl -MGit::Raw -E '
    my $r = Git::Raw::Repository->open(".");
    my @type = qw( bad commit tree blob tag );
    $r->odb->foreach( sub {
        my $id = shift;
        my $o = Git::Raw::Object->lookup( $r, $id );
        say "$id $type[$o->type]";
        return;
    } );
' 
cc5c34f14d06c688b259a884f15b50f3643f5579 commit
...

$ perl -Mblib -MGit::Raw -E '
    my $r = Git::Raw::Repository->open(".");
    my @type = qw( bad commit tree blob tag );
    $r->odb->foreach( sub {
        my $id = shift;
        my $o = Git::Raw::Object->lookup( $r, $id );
        say $o->id, " ", $type[$o->type];
        return;
    } );
'
git_pack_foreach_entry callback returned -1

id is not a valid Git::Raw::Object macro

if ($o->type == Git::Raw::Object->BLOB)
{
  my $blob = Git::Raw::Blob->lookup ($repo, $o->id);
  my $size = $blob->size;
  my $content = $blob->content;
}

$ git cat-file --batch-check --batch-all-objects | head
0006f34f06abb6f95a27605053db1e48a196d822 tree 2253
0007c41dbca36ec635ab3db392e9fca005b44286 blob 49286
000d754d2f377fd7c21178aa74be1771baf17171 blob 2880
0018ebbf047d549ee2c8ad6cb8a6dc66540a97a5 blob 1190
001eb6d871742b6f41cb296e57d69d9a6e041db6 commit 255
0020a7762899f84ce5d54a7f2bc58a354c62bc2a blob 8497
0023f95ffdc839888f5d9b9a9d54fd7de15ada15 blob 17660
0029c27da0fbcad9ff8b0959bd05d96e72ebced4 tag 147
002a59d751d49a2e5f8ccd4b93cebf172f7e9100 tree 304
002ce43f5a437c432c9216b6d009bb015b6d303f tree 34

$ git cat-file --batch-check --batch-all-objects
577ecc210a55a5da10552a4415c4cbb5e321039b blob 988
577eccaacd6343158463f9eaefa19dec78358437 blob 224
65237d4ff8bddefebb2d4801e796f94fa9a9bbeb tree 66
9f0363e979a368db9748fb93278ab91a2152aa71 commit 255
$ perl -MGit::Raw -le '$r=Git::Raw::Repository->open(".");print $r->lookup(shift)' 577ecc
Ambiguous SHA1 prefix - found multiple offsets for pack entry at -e line 1
$ perl -MGit::Raw -le '$r=Git::Raw::Repository->open(".");print $r->odb->read(shift)' 577ecc
Git::Raw::Odb::Object=SCALAR(0x55af77bdeb30)
Segmentation fault