File Coverage

blib/lib/ODS/Utils.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	0	4	0.0
total	50	54	92.5

package ODS::Utils;

use base 'Import::Export';

use YAOO;

use Data::GUID;
use File::Copy qw/move/;
use Carp qw/croak/;
use Data::Dumper qw/Dumper/;

our %EX = (
        load => [qw/all/],
	clone => [qw/all/],
	unique_id => [qw/all/],
	build_temp_class => [qw/all/],
	move => [qw/all/],
	croak => [qw/error/],
	Dumper => [qw/error/]
);

sub clone {
	my ($c) = @_;
	my $n = bless YAOO::deep_clone_ordered_hash($c), ref $c;
	return $n;
}

sub load {
	my ($module) = shift;
	(my $require = $module) =~ s/\:\:/\//g;
	require $require . '.pm';
	return $module;
}

sub unique_class_name {
	return 'A' . join("", split("-", Data::GUID->new->as_string()));
}

sub build_temp_class {
	my ($class) = @_;
	load $class;
	my $temp = $class . '::' . unique_class_name();
	my $c = sprintf(
                q|
                        package %s;
			use YAOO;
			extends '%s';
                        1;
                |, $temp, $class );
        eval $c;
	return $temp;
}

1;