/usr/lib/perl5/AptPkg/System.pm is in libapt-pkg-perl 0.1.25build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | package AptPkg::System;
# $Id: System.pm,v 1.4 2005-08-07 14:03:02 bod Exp $
require 5.005_62;
use strict;
use warnings;
use AptPkg;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw($_system);
our @EXPORT = ();
our $VERSION = qw$Revision: 1.4 $[1] || 0.1;
our $_system;
sub label { shift->Label(@_) }
sub lock { shift->Lock(@_) }
sub unlock { shift->UnLock(@_) }
sub versioning
{
require AptPkg::Version;
shift->VS(@_)
}
1;
__END__
=head1 NAME
AptPkg::System - APT system abstraction class
=head1 SYNOPSIS
use AptPkg::System;
=head1 DESCRIPTION
The AptPkg::System module provides an interface to B<APT>'s system
abstraction mechanism.
=head2 AptPkg::System
The AptPkg::System package implements the B<APT> pkgSystem class.
An instance of the AptPkg::System class appropriate for the particular
back-end packaging system (deb, rpm, etc.) may be fetched using the
system method from AptPkg::Config.
A global instance of the libapt-pkg _system instance is provided as
$AptPkg::System::_system, and may be imported.
The following methods are implemented:
=over 4
=item label
Return the description of the packaging system, for example:
Debian dpkg interface
for Debian systems.
=item lock
Lock the packaging system.
=item unlock(I<QUIET>)
Unlock the packaging system, ignoring errors if I<QUIET> is non-zero.
=item versioning
Return an instance of the AptPkg::Version class for this system.
=back
=head1 SEE ALSO
AptPkg::Config(3pm), AptPkg::Version(3pm), AptPkg(3pm).
=head1 AUTHOR
Brendan O'Dea <bod@debian.org>
=cut
|