File Coverage

blib/lib/Rex/Apache/Deploy/Package/Base.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

#
# (c) Jan Gehring
#
# vim: set ts=3 sw=3 tw=0:
# vim: set expandtab:

package Rex::Apache::Deploy::Package::Base;

use strict;
use warnings;

use Rex::Commands::Gather;

sub new {
   my $that = shift;
   my $proto = ref($that) || $that;
   my $self = { @_ };

   bless($self, $proto);

   my %sys_info = get_system_information();

   $self->{arch}         ||= $sys_info{architecture},
   $self->{version}      ||= "1.0";


   return $self;
}

for my $name (qw/
                  path
                  source
                  release
                  epoch
                  version
                  arch
                  name
                  file_user
                  file_group
                /) {
   no strict 'refs';
   *{__PACKAGE__ . "::$name"} = sub {
      my ($self, $data) = @_;

      if($data) {
         $self->{$name} = $data;
      }

      $self->{$name};

   };
   use strict;
}

sub prefix {
   my ($self, $prefix) = @_;

   if($prefix) {
      $self->{prefix} = $prefix;
   }

   return $self->{prefix} || $self->{path};
}

1;