Gecko [ v99win.today ]

Name	Size	Permission
Cache.pm	13.13 KB	-rw-r--r--
Config.pm	1.87 KB	-rw-r--r--
Config.pod	4.88 KB	-rw-r--r--
PkgRecords.pm	2.22 KB	-rw-r--r--
Policy.pm	1.19 KB	-rw-r--r--
Source.pm	3.94 KB	-rw-r--r--
System.pm	1.48 KB	-rw-r--r--
Version.pm	2.22 KB	-rw-r--r--
hash.pm	4.07 KB	-rw-r--r--

Code Editor : Config.pm

package AptPkg::Config;

require 5.005_62;
use strict;
use warnings;
use AptPkg;
use AptPkg::hash;
use Carp;

require Exporter;

our @ISA = qw(Exporter AptPkg::hash);
our @EXPORT_OK = qw($_config);
our @EXPORT = ();

our $VERSION = 1.7;
our $_config = __PACKAGE__->new($AptPkg::_config::_config);

sub get
{
    my $xs = shift->_xs;
    return $xs->FindAny(@_) unless @_ and $_[0] =~ /(.+)::$/;

# special case where name ends with ::
    my $tree = $xs->Tree($1);
    return unless $tree and $tree = $tree->Child;

my @r;
    while ($tree)
    {
	my $v = $tree->Value;
	push @r, $v if defined $v;
	$tree = $tree->Next;
    }

wantarray ? @r : "@r"; # what *should* this return in a scalar context?
}

sub get_file	{ shift->_xs->FindFile(@_) }
sub get_dir	{ shift->_xs->FindDir(@_) }
sub get_bool	{ shift->_xs->FindB(@_) }
sub set		{ shift->_xs->Set(@_) }
sub exists	{ shift->_xs->ExistsAny(@_) }
sub dump	{ shift->_xs->Dump(@_) }
sub read_file	{ shift->_xs->ReadConfigFile(@_) }
sub read_dir	{ shift->_xs->ReadConfigDir(@_) }

sub init
{
    AptPkg::_init_config shift->_xs;
}

sub system
{
    require AptPkg::System;
    AptPkg::_init_system shift->_xs;
}

sub parse_cmdline
{
    AptPkg::_parse_cmdline shift->_xs, @_;
}

sub AUTOLOAD
{
    (my $method = our $AUTOLOAD) =~ s/.*:://;

return if $method eq 'DESTROY';

my $self = shift;
    my $xs = $self->_xs;
    my $sub = $xs->can($method);

croak "method `$method' not implemented" unless $sub;

unshift @_, $xs;
    goto &$sub;
}

package AptPkg::Config::Iter;

sub new
{
    my $class = shift;
    my $obj = shift;
    my $self = $obj->_xs->Tree(@_);
    bless \$self, $class;
}

sub next
{
    my $self = shift;
    my $tree = $$self or return;
    my $key = $tree->FullTag;

$$self = $tree->Child || $tree->Next;
    until ($$self)
    {
	last unless $tree = $tree->Parent;
	$$self = $tree->Next;
    }

$key;
}

${this.title}

Code Editor : Config.pm