File Coverage

blib/lib/ORLite/PDL.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package ORLite::PDL;

# See POD at the end of the file for documentation

use 5.006;
use strict;
use warnings;
use Carp              ();
use Params::Util 1.00 ();

# Load both the main and statistics PDL packages
use PDL        2.004005;
use PDL::Stats 0.003002;

our $VERSION = '0.02';

sub import {
	my $class  = shift;
	my $params = Params::Util::_HASHLIKE($_[0]) ? $_[0]
		: { package => scalar(caller()) };

	# Verify the caller is an ORLite package
	unless ( Params::Util::_CLASS($params->{package}) ) {
		Carp::croak("Missing or invalid ORLite package name");
	}
	unless ( $params->{package}->can('orlite') ) {
		Carp::croak("$params->{package} does not appear to be an ORLite root class");
	}

	# Add the additional DBI-like root method
	eval <<"END_PERL"; die $@ if $@;
package $params->{package};

sub selectcol_pdl {
	my \$class = shift;
	my \$array = \$class->selectcol_arrayref(\@_);
	ORLite::PDL::pdl( \$array );
}

1;
END_PERL

	return 1;
}

1;

__END__