File Coverage

blib/lib/Backup/Omni/Base.pm

Criterion	Covered	Total	%
statement	15	41	36.5
branch	0	2	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	55	41.8

package Backup::Omni::Base;

our $VERSION = '0.01';
our $EXCEPTION = 'Backup::Omni::Exception';

use Backup::Omni::Exception;
use Params::Validate ':all';

use Backup::Omni::Class
  base     => 'Backup::Omni Badger::Base',
  version  => $VERSION,
  messages => {
      noresults => 'unable to find any results for %s',
      nosession => 'no session data found for %s on %s',
      baddate   => 'unable to perform date parsing, reason: %s',
      badtemp   => 'bad temporary session id',
      badparams => 'invalid parameters passed from %s at line %s',
      invparams => 'invalid paramters passed, reason: %s',
      nosubmit  => 'unable to submit a restore for %s',
  },
  vars => {
      PARAMS => {}
  }
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub config {
    my ($class, $p) = @_;

    return $class->{config}->{$p};

}

sub validation_exception {
    my $param = shift;
    my $class = shift;

    my $x = index($param, $class);
    my $y = index($param, ' ', $x);
    my $method;

    if ($y > 0) {

        my $l = $y - $x;
        $method = substr($param, $x, $l);

    } else {

        $method = substr($param, $x);

    }

    chomp($method);
    $method =~ s/::/./g;
    $method = lc($method) . '.invparams';

    $class->throw_msg($method, 'invparams', $param);

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

sub init {
    my $self = shift;

    my $params = $self->class->hash_vars('PARAMS');
    my %p = validate(@_, $params);

    $self->{config} = \%p;

    no strict "refs";               # to register new methods in package
    no warnings;                    # turn off warnings

    while (my ($key, $value) = each(%p)) {

        $key =~ s/^-//;
        $self->{$key} = $value;

        *$key = sub {
            my $self = shift;
            return $self->{$key};
        };

    }

    return $self;

}

1;

__END__