aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2018-12-18 12:24:44 +0200
committerSergey Poznyakoff <gray@gnu.org>2018-12-18 12:24:44 +0200
commit728992688946fe88173e7cd561456a10c9d23fd8 (patch)
tree74cc2fdd988de0ecd6be9a3f20b4678bf85aeb1e
parentf6f0330163617f644cd2e6b774e0d9d4b0118b9f (diff)
downloadglacier-728992688946fe88173e7cd561456a10c9d23fd8.tar.gz
glacier-728992688946fe88173e7cd561456a10c9d23fd8.tar.bz2
Fix config->as_hash
* lib/App/Glacier/Config.pm (as_hashref): New method. (as_hash): Return a hash.
-rw-r--r--lib/App/Glacier/Command.pm7
-rw-r--r--lib/App/Glacier/Config.pm28
2 files changed, 30 insertions, 5 deletions
diff --git a/lib/App/Glacier/Command.pm b/lib/App/Glacier/Command.pm
index 62a236b..7178a75 100644
--- a/lib/App/Glacier/Command.pm
+++ b/lib/App/Glacier/Command.pm
@@ -140,13 +140,13 @@ sub new {
$creds->secret_key($account));
$region = $creds->region($account) unless defined $region;
}
}
}
- $self->{_glacier} = new App::Glacier::Bre(%{$self->config->as_hash('glacier')//{}});
+ $self->{_glacier} = new App::Glacier::Bre($self->config->as_hash('glacier'));
if ($self->{_glacier}->lasterr) {
$self->abend(EX_CONFIG, $self->{_glacier}->last_error_message);
}
return $self;
}
@@ -180,13 +180,13 @@ sub touchdir {
sub jobdb {
my $self = shift;
unless ($self->{_jobdb}) {
my $be = $self->cfget(qw(database job backend));
$self->{_jobdb} = new App::Glacier::Roster(
$be,
- %{$self->config->as_hash(qw(database job)) // {}}
+ $self->config->as_hash(qw(database job))
);
}
return $self->{_jobdb};
}
sub describe_vault {
@@ -209,13 +209,14 @@ sub directory {
my $be = $self->cfget(qw(database inv backend));
$self->{_dir}{$vault_name} =
new App::Glacier::Directory(
$be,
$vault_name,
$self->glacier,
- %{$self->config->as_hash(qw(database inv)) // {}});
+ $self->config->as_hash(qw(database inv))
+ );
}
return $self->{_dir}{$vault_name};
}
sub config { shift->{_config} }
diff --git a/lib/App/Glacier/Config.pm b/lib/App/Glacier/Config.pm
index 33d54d2..63dd61c 100644
--- a/lib/App/Glacier/Config.pm
+++ b/lib/App/Glacier/Config.pm
@@ -734,13 +734,22 @@ sub get {
} elsif (ref($ref) eq 'HASH') {
return %$ref;
}
return $ref;
}
-sub as_hash {
+=head2 $cfg->as_hashref(@path)
+
+If I<@path> represents a section, convert that section to a perl hash,
+and return a reference to that hash.
+
+If I<@path> does not exist or refers to a value, return C<undef>.
+
+=cut
+
+sub as_hashref {
my $self = shift;
my $ref = $self->getref(@_);
my $hroot = {};
my @ar;
push @ar, [ '', $ref, $hroot ];
@@ -752,13 +761,28 @@ sub as_hash {
push @ar, [ $kw, $val, $hr ];
}
} else {
$elt->[2]{$elt->[0]} = $elt->[1]->{-value};
}
}
- return $hroot->{''};
+ my $r = $hroot->{''};
+ return ref($r) eq 'HASH' ? $r : undef;
+}
+
+=head2 $cfg->as_hashref(@path)
+
+If I<@path> represents a section, return that section converted to a
+perl hash.
+
+If I<@path> does not exist or refers to a value, the returned hash is
+empty.
+
+=cut
+
+sub as_hash {
+ return %{shift->as_hashref(@_) // {}}
}
=head2 $cfg->isset(@path)
Returns true if the configuration variable addressed by B<@path> is
set.

Return to:

Send suggestions and report system problems to the System administrator.