File Coverage

blib/lib/DBIx/SimpleQuery/Object.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	12	0.0
condition	0	3	0.0
subroutine	2	10	20.0
pod	0	8	0.0
total	8	68	11.7

##
## File: DBIx/SimpleQuery/Object.pm
## Author: Steve Simms
##
## Revision: $Revision$
## Date: $Date$
##
## An object created by DBIx::SimpleQuery which holds the results of a
## query.
##

package DBIx::SimpleQuery::Object;

use strict;

use overload
    '""'   => \&as_string,
    '0+'   => \&as_integer,
    'bool' => \&as_boolean,
    '@{}'  => \&as_arrayref,
    '<<'   => \&left_shift,
    '>>'   => \&right_shift,
    '<>'   => \&as_iterative;

sub new {
    my $class = shift;
    my $params = shift;
    return bless $params, $class;
}

sub as_string {
    my $self = shift();
    my @results = @{$self->{"results"}};
    if (not scalar @results and $self->{"field_count"} == 1) {
	return "";
    }
    elsif (scalar @results == 1) {
	my $first_result = $results[0];
	if ($self->{"field_count"} == 1) {
	    my @keys = keys %{$first_result};
	    my $key = shift(@keys);
	    return $first_result->{$key};
	}
    }
    return $self->{"count"};
}

sub as_integer {
    my $self = shift();
    return $self->{"count"};
}

sub as_boolean {
    my $self = shift();
    return ($self->{"count"} ? 1 : 0);
}

sub as_arrayref {
    my $self = shift();
    return $self->{"results"};
}

sub left_shift {
    my ($self, $i) = @_;
    $i = 1 unless defined $i;
    return $self->{"results"}->[$i-1];
}

sub right_shift {
    my ($self, $i) = @_;
    $i = 1 unless defined $i;
    left_shift($self, $i*-1+1);
}

sub as_iterative {
    my $self = shift();
    return $self->{"results"}->[$self->{"iter"}++];
}

1;

__END__