#!/usr/bin/perl

use strict;
use apt_pkg;

print "libapt-pkg version: $apt_pkg::APT_PKG_MAJOR.$apt_pkg::APT_PKG_MINOR.$apt_pkg::APT_PKG_RELEASE\n";

apt_pkg::pkgInitConfig($apt_pkg::_config);
apt_pkg::pkgInitSystem($apt_pkg::_config);

print "DPkg::Build-Options: ",$apt_pkg::_config->Find("DPkg::Build-Options"),
    "\n";

my $file = $apt_pkg::_config->FindFile("Dir::Cache::pkgcache");
print "pkgcache: $file\n";
my $mmap = apt_pkg::MMap->new(apt_pkg::FileFd->new($file, $apt_pkg::FileFd::ReadOnly),
		     $apt_pkg::MMap::Public|$apt_pkg::MMap::ReadOnly);

my $pkgcache = apt_pkg::pkgCache->new($mmap);

my $pkgiterator = $pkgcache->PkgBegin();
print "A package: ", $pkgiterator->Name(), "\n";