File Coverage

blib/lib/No/Worries.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	22	22	100.0

#+##############################################################################
#                                                                              #
# File: No/Worries.pm                                                          #
#                                                                              #
# Description: coding without worries                                          #
#                                                                              #
#-##############################################################################

#
# module definition
#

package No::Worries;
use strict;
use warnings;
our $VERSION  = "1.5";
our $REVISION = sprintf("%d.%02d", q$Revision: 1.32 $ =~ /(\d+)\.(\d+)/);

#
# used modules
#

use Sys::Hostname qw();
use No::Worries::Export qw(export_control);

#
# global variables
#

our($HostName, $ProgramName, $_IntegerRegexp, $_NumberRegexp);

#
# module initialization
#

# we set once for all the host name
$HostName = Sys::Hostname::hostname() || "";
$HostName = lc($HostName);
$HostName =~ s/\..+$//;

# we set once for all the program name
$ProgramName = $0 || "";
$ProgramName =~ s/^.*\///;

# private global variables
$_IntegerRegexp = qr/^\d+$/;
$_NumberRegexp  = qr/^(\d+\.)?\d+$/;

#
# export control
#

sub import : method {
    my($pkg, %exported);

    $pkg = shift(@_);
    grep($exported{$_}++, qw($HostName $ProgramName));
    grep($exported{$_}++, qw($_IntegerRegexp $_NumberRegexp));
    export_control(scalar(caller()), $pkg, \%exported, @_);
}

1;

__DATA__