File Coverage

blib/lib/Mnet/Opts/Set.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	1	2	50.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	1	2	50.0
total	23	36	63.8

package Mnet::Opts::Set;

=head1 NAME

Mnet::Opts::Set - Check for loaded Mnet::Opts::Set pragma sub-modules

=head1 SYNOPSIS

    use Mnet::Opts::Set;
    $opts = Mnet::Opts::Set::pragmas();

=head1 DESCRIPTION

This module can be used to check what Mnet::Opts::Set pragma sub-modules are
currently loaded.

Scripts should not need to use or call this module. Normally scripts would use
the L and L modules, which handle checking the
status of Mnet::Opts::Set pragma sub-modules.

=head1 FUNCTIONS

Mnet::Opts::Set implements the functions listed below.

=cut

# required modules
use warnings;
use strict;
use Mnet;
use Carp;



sub enable {

# Mnet::Opts::Set::enable($pragma)
# purpose: use this function to dynamically load the specified pragma option
# $pragma: progma option to enable, such as silent, quiet, etc.

    my $pragma = shift // croak("missing pragma arg");
    my $path = $INC{"Mnet/Opts/Set.pm"};
    $path =~ s/(Mnet\/Opts\/Set)\.pm$/$1\//;
    $path .= ucfirst($pragma) . ".pm";
    $INC{"Mnet/Opts/Set/".ucfirst($pragma).".pm"} = $path;
    return;
}



sub pragmas {

=head2 Mnet::Opts::Set::pragmas

    $opts = Mnet::Opts::Set::pragmas()

This function returns a hash containing true values for any Mnet::Opts::Set
pragma sub-modules that have been loaded with the perl 'use' command.

Refer to the SEE ALSO section of this document for a list of these sub-modules.

=cut

    # return opts hash with values set for used Mnet::Opts::Set sub-modules
    my $opts = {};
    foreach my $module (keys %INC) {
        next if $module !~ /^Mnet\/Opts\/Set\/(\S+)\.pm$/;
        $opts->{lc($1)} = 1;
    }
    return $opts;
}



=head1 SEE ALSO

L

L

L

L

L

L

=cut

# normal package return
1;