Storage/Result/Hash.pm

## -------------------------------------------------------------------------
##  $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $
## -------------------------------------------------------------------------
##  $Log: Rap.pm,v $
## -------------------------------------------------------------------------


package Data::Storage::Result::Hash;

use strict;
use warnings;

use base ("Data::Storage::Result::Abstract");


sub DESTROY {
  my $self = shift;
  #$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
  #$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->finish();
}

sub getNextEntry {
  my $self = shift;
  #$self->{RESULTHANDLE} && return $self->{RESULTHANDLE}->fetchrow_hashref;
  $self->{RESULTHANDLE} && return $self->{RESULTHANDLE};
}

sub getStatus_tmp {
  my $self = shift;
  my $status = {
    err => $self->{RESULTHANDLE}->err,
    errstr => $self->{RESULTHANDLE}->errstr,
    state => $self->{RESULTHANDLE}->state,
  };
  return $status;
}

1;
__END__
1	joko	1.1	## -------------------------------------------------------------------------
2			## $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $
3			## -------------------------------------------------------------------------
4			## $Log: Rap.pm,v $
5			## -------------------------------------------------------------------------
6
7
8			package Data::Storage::Result::Hash;
9
10			use strict;
11			use warnings;
12
13			use base ("Data::Storage::Result::Abstract");
14
15
16			sub DESTROY {
17			my $self = shift;
18			#$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
19			#$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->finish();
20			}
21
22			sub getNextEntry {
23			my $self = shift;
24			#$self->{RESULTHANDLE} && return $self->{RESULTHANDLE}->fetchrow_hashref;
25			$self->{RESULTHANDLE} && return $self->{RESULTHANDLE};
26			}
27
28			sub getStatus_tmp {
29			my $self = shift;
30			my $status = {
31			err => $self->{RESULTHANDLE}->err,
32			errstr => $self->{RESULTHANDLE}->errstr,
33			state => $self->{RESULTHANDLE}->state,
34			};
35			return $status;
36			}
37
38			1;
39			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26