[PATCH 1/7] Add name property to Brackup::Target class

Michael Hanselmann public at hansmi.ch
Wed Aug 13 21:15:56 UTC 2008


From: Michael Hanselmann <hansmi at hansmi-mac-zrh.lan>

---
 lib/Brackup/Target.pm |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/lib/Brackup/Target.pm b/lib/Brackup/Target.pm
index 04bdfc0..ca4c20c 100644
--- a/lib/Brackup/Target.pm
+++ b/lib/Brackup/Target.pm
@@ -13,6 +13,7 @@ sub new {
     my $name = $confsec->name;
     $name =~ s!^TARGET:!! or die;
 
+    $self->{name} = $name;
     $self->{keep_backups} = $confsec->value("keep_backups");
     $self->{inv_db} =
         Brackup::InventoryDatabase->new($confsec->value("inventory_db") ||
@@ -21,6 +22,12 @@ sub new {
     return $self;
 }
 
+sub name {
+    my ($self) = @_;
+
+    return $self->{name};
+}
+
 # return hashref of key/value pairs you want returned to you during a restore
 # you should include anything you need to restore.
 # keys should only contain \w
-- 
1.5.5.3



More information about the brackup mailing list