summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/App/BorgRestore/Borg.pm12
-rw-r--r--lib/App/BorgRestore/DB.pm12
-rw-r--r--lib/App/BorgRestore/Helper.pm12
3 files changed, 36 insertions, 0 deletions
diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm
index 3766f8f..24d77c8 100644
--- a/lib/App/BorgRestore/Borg.pm
+++ b/lib/App/BorgRestore/Borg.pm
@@ -9,6 +9,18 @@ use Function::Parameters;
use IPC::Run qw(run start new_chunker);
use Log::Any qw($log);
+=encoding utf-8
+
+=head1 NAME
+
+App::BorgRestore::Borg - Borg abstraction
+
+=head1 DESCRIPTION
+
+App::BorgRestore::Borg abstracts borg commands used by L<App::BorgRestore>.
+
+=cut
+
method new($class: $borg_repo) {
my $self = {};
bless $self, $class;
diff --git a/lib/App/BorgRestore/DB.pm b/lib/App/BorgRestore/DB.pm
index b8eb0be..e918677 100644
--- a/lib/App/BorgRestore/DB.pm
+++ b/lib/App/BorgRestore/DB.pm
@@ -9,6 +9,18 @@ use DBI;
use Function::Parameters;
use Log::Any qw($log);
+=encoding utf-8
+
+=head1 NAME
+
+App::BorgRestore::DB - Database layer
+
+=head1 DESCRIPTION
+
+App::BorgRestore::DB abstracts the database storage used internally by L<App::BorgRestore>.
+
+=cut
+
method new($class: $db_path, $cache_size) {
my $self = {};
bless $self, $class;
diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm
index 91d3e91..a89751a 100644
--- a/lib/App/BorgRestore/Helper.pm
+++ b/lib/App/BorgRestore/Helper.pm
@@ -6,6 +6,18 @@ use warnings;
use Function::Parameters;
use POSIX ();
+=encoding utf-8
+
+=head1 NAME
+
+App::BorgRestore::Helper - Helper functions
+
+=head1 DESCRIPTION
+
+App::BorgRestore::Helper provides some general helper functions used in various packages in the L<App::BorgRestore> namespace.
+
+=cut
+
fun untaint($data, $regex) {
$data =~ m/^($regex)$/ or die "Failed to untaint: $data";
return $1;