DBIx::Librarian::Statement::SelectExactlyOne - strict one-row SELECT statement

DBIx-Librarian documentation Contained in the DBIx-Librarian distribution.

Index

Code Index:

NAME

Top

DBIx::Librarian::Statement::SelectExactlyOne - strict one-row SELECT statement

DESCRIPTION

Top

SELECT statement that expects to retrieve exactly one record from the database. An exception is raised if zero rows are found or if more than one row is found.

All values fetched will be stored in top-level scalars in the data hash.

AUTHOR

Top

Jason W. May <jmay@pobox.com>

COPYRIGHT

Top

Copyright (C) 2001-2003 Jason W. May. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

DBIx-Librarian documentation Contained in the DBIx-Librarian distribution. 
package DBIx::Librarian::Statement::SelectExactlyOne;

require 5.005;
use base qw(DBIx::Librarian::Statement);
use strict;
use Carp;
use vars qw($VERSION);
$VERSION = '0.4';


sub fetch {
    my ($self, $data) = @_;

    my $hash_ref = $self->{STH}->fetchrow_hashref;

    if (!$hash_ref) {
	croak "Expected exactly one row but received none for\n" . $self->{STH}->{Statement};
    }

    while (my ($key, $val) = each %$hash_ref) {
	my $node = $data;

	if ($key =~ /\./) {
	    my ($base, $subkey) = split /\./, $key;
	    $node->{$base} = {} unless defined $node->{$base};
	    $node = $node->{$base};
	    $key = $subkey;
	}

	if ($self->{ALLARRAYS}) {
	    $node->{$key}[0] = $val;
	} else {
	    $node->{$key} = $val;
	}
    }

    if ($self->{STH}->fetchrow_hashref) {
	croak "Expected exactly one row; received more than one for\n" . $self->{STH}->{Statement};
    }

    return 1;
}


1;