File Coverage

blib/lib/PAB3/Utils.pm

Criterion	Covered	Total	%
statement	37	48	77.0
branch	6	10	60.0
condition			n/a
subroutine	10	15	66.6
pod	7	8	87.5
total	60	81	74.0

package PAB3::Utils;
# =============================================================================
# Perl Application Builder
# Module: PAB3::Utils
# use "perldoc PAB3::Utils" for documenation
# =============================================================================
use strict;
use warnings;
no warnings 'uninitialized';

use vars qw($VERSION $TID);

require Exporter;
our @EXPORT_GOOD = qw(
	setlocale set_locale set_user_locale set_timezone
	strftime strfmon number_format str_trim trim round
);
our @EXPORT_BAD = qw(localtime gmtime);
our @EXPORT_OK = ( @EXPORT_GOOD, @EXPORT_BAD );
our %EXPORT_TAGS = (
	'default' => \@EXPORT_GOOD,
);
*import = \&Exporter::import;

BEGIN {
	$VERSION = '2.0';
	require XSLoader;
	XSLoader::load( __PACKAGE__, $VERSION );

	my( $pn );
	$pn = '/auto/PAB3/Utils/';
	foreach( @INC ) {
		if( -d $_ . $pn . 'locale' ) {
			&_set_module_path( $_ . $pn );
			last;
		}
	}

	$TID = undef;

	*setlocale = \&set_locale;
	*trim = \&str_trim;
}

END {
	&_cleanup();
}

1;

sub DESTROY {
	my $this = shift or return;
	if( $$this ) {
		&_cleanup_class( $$this );
	}
}

sub set_locale {
	my $tid = &get_thread_id( \@_ );
	&_set_locale( $tid, @_ );
}

sub set_user_locale {
	my $tid = &get_thread_id( \@_ );
	&_set_user_locale( $tid, @_ );
}

sub set_timezone {
	my $tid = &get_thread_id( \@_ );
	&_set_timezone( $tid, @_ );
}

sub number_format {
	my $tid = &get_thread_id( \@_ );
	&_number_format( $tid, @_ );
}

sub localtime {
	my $tid = &get_thread_id( \@_ );
	&_localtime( $tid, @_ );
}

sub strftime {
	my $tid = &get_thread_id( \@_ );
	&_strftime( $tid, @_ );
}

sub strfmon {
	my $tid = &get_thread_id( \@_ );
	&_strfmon( $tid, @_ );
}

sub get_thread_id {
	#my( $arg ) = @_;
	if( ref( $_[0]->[0] ) eq __PACKAGE__ ) {
		return ${shift @{$_[0]}};
	}
	defined $TID or $TID = &_get_current_thread_id();
	return $TID;
}


__END__