File Coverage

blib/lib/DBIx/Roles/StoredProcedures.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	17	20	85.0

# $Id: StoredProcedures.pm,v 1.1.1.1 2005/11/20 18:01:06 dk Exp $

package DBIx::Roles::StoredProcedures;

use strict;
use vars qw($VERSION);

$VERSION = '1.00';

sub initialize
{
	return undef, undef, qw(call_function);
}

sub call_function
{
	my ( $self, $storage, $function, @params) = @_;

	return $self-> selectrow_array(
		"SELECT $function (".
			join(',', map { '?' } @params) .
		")",
		{},
		@params
	);
}

# XXX any() is greedy here, but checking whether there is a corresponding stored procedure
# takes intimate knowledge about the particular DBD driver, so we leave that for now
sub any
{
	my ( $self, $storage, $method, @params) = @_;

	return call_function( $self, $storage, $method, @params);
}

1;

__DATA__