require
5.004;
@ISA
=
"DBIx::Librarian::Statement"
;
sub
fetch {
my
(
$self
,
$data
) =
@_
;
my
$i
= 0;
while
(
my
$hash_ref
=
$self
->{STH}->fetchrow_hashref) {
while
(
my
(
$key
,
$val
) =
each
%$hash_ref
) {
if
(
$key
=~ /\./) {
my
(
$obj
,
$subkey
) =
split
/\./,
$key
;
$data
->{
$obj
}[
$i
]->{
$subkey
} =
$val
;
}
else
{
$data
->{
$key
}[
$i
] =
$val
;
}
}
$i
++;
}
return
$i
;
}
1;
=head1 AUTHOR
Jason W. May <jmay
@pobox
.com>
=head1 COPYRIGHT
Copyright (C) 2001 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.