Storage/Result/Tangram.pm

############################################
#
#  $Id$
#
#  $Log$
#
############################################


package Data::Storage::Result::Tangram;

use strict;
use warnings;

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


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

sub getNextEntry {
  my $self = shift;
  
  return if !$self->{RESULTHANDLE};
  $self->{resulthandle_type} = ref($self->{RESULTHANDLE}) if !$self->{resulthandle_type};
  
  # is result already opened?
  if ($self->{open}) {
    $self->{entry_count}++;
    return $self->{RESULTHANDLE}->next()
      if $self->{resulthandle_type} eq 'Tangram::Cursor';
    return $self->{members}->[$self->{entry_count}]
      if $self->{resulthandle_type} eq 'Set::Object';

  } else {
    # open result
    $self->{open} = 1;
    $self->{entry_count} = 0;
    return $self->{RESULTHANDLE}->execute()
      if $self->{resulthandle_type} eq 'Tangram::Cursor';
    #print Dumper($self->{RESULTHANDLE}->members()); exit;
    if ($self->{resulthandle_type} eq 'Set::Object') {
      my @members = $self->{RESULTHANDLE}->members();
      $self->{members} = \@members;
      return $self->{members}->[$self->{entry_count}];
    }
  }
}

sub getStatus { }

1;
1	############################################
2	#
3	# $Id$
4	#
5	# $Log$
6	#
7	############################################
8
9
10	package Data::Storage::Result::Tangram;
11
12	use strict;
13	use warnings;
14
15	use base ("Data::Storage::Result::Abstract");
16	use Data::Dumper;
17
18
19	sub DESTROY {
20	my $self = shift;
21	#$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
22	$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->close();
23	}
24
25	sub getNextEntry {
26	my $self = shift;
27
28	return if !$self->{RESULTHANDLE};
29	$self->{resulthandle_type} = ref($self->{RESULTHANDLE}) if !$self->{resulthandle_type};
30
31	# is result already opened?
32	if ($self->{open}) {
33	$self->{entry_count}++;
34	return $self->{RESULTHANDLE}->next()
35	if $self->{resulthandle_type} eq 'Tangram::Cursor';
36	return $self->{members}->[$self->{entry_count}]
37	if $self->{resulthandle_type} eq 'Set::Object';
38
39	} else {
40	# open result
41	$self->{open} = 1;
42	$self->{entry_count} = 0;
43	return $self->{RESULTHANDLE}->execute()
44	if $self->{resulthandle_type} eq 'Tangram::Cursor';
45	#print Dumper($self->{RESULTHANDLE}->members()); exit;
46	if ($self->{resulthandle_type} eq 'Set::Object') {
47	my @members = $self->{RESULTHANDLE}->members();
48	$self->{members} = \@members;
49	return $self->{members}->[$self->{entry_count}];
50	}
51	}
52	}
53
54	sub getStatus { }
55
56	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26