File Coverage

blib/lib/Backup/Omni/Constants.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Backup::Omni::Constants;

our $VERSION = '0.01';

use Backup::Omni::Exception;

use Badger::Class
  version => $VERSION,
  base    => 'Badger::Constants',    # grab the badger constants
  import  => 'class',
;

# ----------------------------------------------------------------------
# Build our constants and export them
# ----------------------------------------------------------------------

{

    my $path = '/opt/omni/bin/%s';

    if ($^O eq "MSWin32") {

        if ($ENV{PATH} =~ m/;(.*OmniBack\\bin);/) {

            $path = $1 . '\\%s.exe';

        } else {

            $path = '"C:\\Program Files\\OmniBack\\bin\\%s.exe"';

        }

    }

    my $constants = {
        OMNIR     => sprintf($path, 'omnir'),
        OMNIDB    => sprintf($path, 'omnidb'),
        OMNISTAT  => sprintf($path, 'omnistat'),
        OMNIABORT => sprintf($path, 'omniabort'),
    };

    my $exports = {
        any => 'OMNIR OMNIDB OMNISTAT OMNIABORT',
        all => 'OMNIR OMNIDB OMNISTAT OMNIABORT',
    };

    class->constant($constants);
    class->exports($exports);

}

1;

__END__