view release on metacpan or  search on metacpan

lib/Backup/Omni/Utils.pm  view on Meta::CPAN

package Backup::Omni::Utils;

our $VERSION = '0.01';

use Try::Tiny;
use Backup::Omni::Exception;
use Params::Validate ':all';
use DateTime::Format::Strptime;

use Backup::Omni::Class
  version   => $VERSION,
  base      => 'Badger::Utils',
  constants => 'HASH ARRAY OMNISTAT OMNIABORT',
  constant => {
      ABORT   => '%s -session %s',
      CONVERT => '%s -session %s -status_only',
      BADDATE => 'unable to perform date parsing, reason: %s',
      BADPARM => 'invalid parameters passed from %s at line %s',
      BADTEMP => 'bad temporary session id',
      NORESUL => 'unable to find any results for %s',
      NOABORT => 'unable to abort %s',
  },
  exports => {
      any => 'db2dt dt2db omni2dt trim ltrim rtrim convert_id abort_id',
      all => 'db2dt dt2db omni2dt trim ltrim rtrim convert_id abort_id',
  }
;

Params::Validate::validation_options(
    on_fail => sub {
        my $params = shift;
        my $class  = __PACKAGE__;
        Backup::Omni::Base::validation_exception($params, $class);
    }
);

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

# Perl trim function to remove whitespace from the start and end of the string
sub trim {
    my $string = shift;

    $string =~ s/^\s+//;
    $string =~ s/\s+$//;

    return $string;

}

# Left trim function to remove leading whitespace
sub ltrim {
    my $string = shift;

    $string =~ s/^\s+//;

    return $string;

}

# Right trim function to remove trailing whitespace
sub rtrim {
    my $string = shift;