File Coverage

blib/lib/DBIx/Roles/InlineArray.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	7	8	87.5
condition	3	3	100.0
subroutine	4	4	100.0
pod	0	2	0.0
total	27	30	90.0

# $Id: InlineArray.pm,v 1.4 2005/11/30 13:13:37 dk Exp $

# recursively straightens array references into {,,}-strings
# useful for DBD implementations that cannot do that themselves

package DBIx::Roles::InlineArray;

use strict;
use vars qw($VERSION);

$VERSION = '1.00';

sub inline
{
	map {
		ref($_) ?
			'{' . join(',', inline(@$_)) . '}' :
			$_
	} @_
}

sub rewrite
{
	my ( $self, $storage, $method, $params) = @_;
	if (
		$method eq 'do' or
		exists $DBIx::Roles::DBI_select_methods{$method}
	) {
		my $shift = ( $method eq 'selectall_hashref') ? 3 : 2;
		splice( @$params, $shift, $#$params, inline( @$params[ $shift..$#$params ]))
			if $shift < @$params;
	}

	return $self-> super( $method, $params);
}

1;

__DATA__