summaryrefslogtreecommitdiffstats
path: root/lib/App
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2017-04-01 23:07:14 +0200
committerFlorian Pritz <bluewind@xinu.at>2017-04-01 23:07:14 +0200
commite56763721e595bd3337d7aadd688c47b545b3d8b (patch)
tree8f445a56ae6c20992c94496a348893f73f83f6dd /lib/App
parent4062f1a2233a2ed2054c8134b8397c10f6e49bcf (diff)
downloadApp-BorgRestore-e56763721e595bd3337d7aadd688c47b545b3d8b.tar.gz
App-BorgRestore-e56763721e595bd3337d7aadd688c47b545b3d8b.tar.xz
Mark some functions private
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib/App')
-rw-r--r--lib/App/BorgRestore.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm
index 3e76c0d..6d3d5c7 100644
--- a/lib/App/BorgRestore.pm
+++ b/lib/App/BorgRestore.pm
@@ -124,7 +124,7 @@ sub select_archive_timespec {
my $archives = shift;
my $timespec = shift;
- my $seconds = $self->timespec_to_seconds($timespec);
+ my $seconds = $self->_timespec_to_seconds($timespec);
if (!defined($seconds)) {
say STDERR "Error: Invalid time specification";
return;
@@ -150,7 +150,7 @@ sub format_timestamp {
return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp;
}
-sub timespec_to_seconds {
+sub _timespec_to_seconds {
my $self = shift;
my $timespec = shift;
@@ -213,7 +213,7 @@ sub restore {
$self->{borg}->restore($components_to_strip, $archive_name, $path);
}
-sub add_path_to_hash {
+sub _add_path_to_hash {
my $self = shift;
my $hash = shift;
my $path = shift;
@@ -259,7 +259,7 @@ sub get_missing_items {
return $ret;
}
-sub handle_removed_archives {
+sub _handle_removed_archives {
my $self = shift;
my $borg_archives = shift;
@@ -286,7 +286,7 @@ sub handle_removed_archives {
}
}
-sub handle_added_archives {
+sub _handle_added_archives {
my $self = shift;
my $borg_archives = shift;
@@ -307,7 +307,7 @@ sub handle_added_archives {
if ($line =~ m/^.{4} (?<year>....)-(?<month>..)-(?<day>..) (?<hour>..):(?<minute>..):(?<second>..) (?<path>.+)$/) {
my $time = POSIX::mktime($+{second},$+{minute},$+{hour},$+{day},$+{month}-1,$+{year}-1900);
#$log->debugf("Adding path %s with time %s", $+{path}, $time);
- $self->add_path_to_hash($lookuptable, $+{path}, $time);
+ $self->_add_path_to_hash($lookuptable, $+{path}, $time);
}
});
@@ -316,7 +316,7 @@ sub handle_added_archives {
$self->{db}->begin_work;
$self->{db}->add_archive_name($archive);
my $archive_id = $self->{db}->get_archive_id($archive);
- $self->save_node($archive_id, undef, $lookuptable);
+ $self->_save_node($archive_id, undef, $lookuptable);
$self->{db}->commit;
$self->{db}->vacuum;
@@ -334,13 +334,13 @@ sub build_archive_cache {
$log->debugf("Found %d archives in db", scalar(@$archives));
- $self->handle_removed_archives($borg_archives);
- $self->handle_added_archives($borg_archives);
+ $self->_handle_removed_archives($borg_archives);
+ $self->_handle_added_archives($borg_archives);
$log->debugf("DB contains information for %d archives in %d rows", scalar(@{$self->{db}->get_archive_names()}), $self->{db}->get_archive_row_count());
}
-sub save_node {
+sub _save_node {
my $self = shift;
my $archive_id = shift;
my $prefix = shift;
@@ -354,7 +354,7 @@ sub save_node {
my $time = $$node[0]->{$child}[1];
$self->{db}->add_path($archive_id, $path, $time);
- $self->save_node($archive_id, $path, $$node[0]->{$child});
+ $self->_save_node($archive_id, $path, $$node[0]->{$child});
}
}