Basis.pm

##############################################################################
# @file  Basis.pm
# @brief BASIS utilities for Perl.
#
# @note The Basis.pm module is automatically created by BASIS from the
#       template file Basis.pm.in which is part of the BASIS installation.
#
# This module uses the modules of the BASIS Perl Utilities and exports the
# utility functions. Hence, it is sufficient to only use this module.
# This is done by the @c @BASIS_PERL_UTILITIES@ code.
#
# Copyright (c) 2011 University of Pennsylvania. All rights reserved.<br />
# See https://www.cbica.upenn.edu/sbia/software/license.html or COPYING file.
#
# Contact: SBIA Group <sbia-software at uphs.upenn.edu>
#
# @ingroup BasisPerlUtilities
##############################################################################

package SBIA::BASIS::Basis;

use strict;
use warnings;

# ============================================================================
# exports
# ============================================================================

our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);

BEGIN {
    use Exporter ();

    $VERSION = 1.02_03;
    @ISA     = qw (Exporter);

    %EXPORT_TAGS = (
        default => [qw (
            which
            get_executable_name
            get_executable_directory
            get_executable_path
            print_version
            print_contact
            execute_process
        )],

        everything => [qw (
            which
            where
            get_executable_name
            get_executable_directory
            get_executable_path
            is_known_target
            get_target_uid
            print_version
            print_contact
            execute_process
        )]
    );

    Exporter::export_ok_tags ('everything');
}

# ============================================================================
# modules
# ============================================================================

use SBIA::BASIS::File::Which qw(which);
use SBIA::BASIS::ExecutableTargetInfo qw(:everything);
use SBIA::BASIS::StdAux qw(:everything);


1; # indicate success of module loading