File Coverage

blib/lib/P5NCI/Library.pm

Criterion	Covered	Total	%
statement	29	37	78.3
branch	10	10	100.0
condition	0	2	0.0
subroutine	8	10	80.0
pod	4	4	100.0
total	51	63	80.9

package P5NCI::Library;

use strict;
use warnings;

use P5NCI;

use vars '$VERSION';
$VERSION = '0.31';

use Carp 'croak';

sub new
{
	my ($self, %args) = @_;

	P5NCI::add_path( $args{path} ) if $args{path};

	croak "No library given\n" unless $args{library};
	my $libpath = P5NCI::find_lib( $args{library} );

	croak "No library found\n" unless $libpath;

	my $library = P5NCI::load_lib( $libpath );
	bless { %args, lib => $library }, $self;
}

sub package
{
	my $self = shift;
	$self->{package} ||= 'main';
}

sub load_function
{
	my ($self, $function, $signature) = @_;

	croak "No function given\n"  unless $function;
	croak "No signature given\n" unless $signature;

	return P5NCI::load_func( $self->{lib}, $function, $signature );
}

sub install_function
{
	my ($self, $name, $sig) = @_;
	my $function            = $self->load_function( $name, $sig);
	my $package             = $self->package();

	no strict 'refs';
	*{ $package . '::' . $name } = $function;
	return $function;

}

1;
__END__