/[cvs]/nfo/perl/libs/Data/Storage/Result/Tangram.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Result/Tangram.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Fri Nov 29 04:55:45 2002 UTC revision 1.2 by joko, Thu Dec 5 08:01:26 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.2  2002/12/05 08:01:26  joko
7    #  + sub getStatus utilizing isEmpty to determine if result is set/unset and/or filled/unfilled
8    #
9  #  Revision 1.1  2002/11/29 04:55:45  joko  #  Revision 1.1  2002/11/29 04:55:45  joko
10  #  + initial check-in  #  + initial check-in
11  #  #
# Line 17  use warnings; Line 20  use warnings;
20    
21  use base ("Data::Storage::Result::Abstract");  use base ("Data::Storage::Result::Abstract");
22  use Data::Dumper;  use Data::Dumper;
23    use Data::Compare::Struct qw( isEmpty );
24    
25  sub DESTROY {  sub DESTROY {
26    my $self = shift;    my $self = shift;
# Line 39  sub getNextEntry { Line 42  sub getNextEntry {
42      return $self->{members}->[$self->{entry_count}]      return $self->{members}->[$self->{entry_count}]
43        if $self->{resulthandle_type} eq 'Set::Object';        if $self->{resulthandle_type} eq 'Set::Object';
44    
45      # open result!
46    } else {    } else {
     # open result  
     $self->{open} = 1;  
47      $self->{entry_count} = 0;      $self->{entry_count} = 0;
48      return $self->{RESULTHANDLE}->execute()      return $self->{RESULTHANDLE}->execute()
49        if $self->{resulthandle_type} eq 'Tangram::Cursor';        if $self->{resulthandle_type} eq 'Tangram::Cursor';
# Line 51  sub getNextEntry { Line 53  sub getNextEntry {
53        $self->{members} = \@members;        $self->{members} = \@members;
54        return $self->{members}->[$self->{entry_count}];        return $self->{members}->[$self->{entry_count}];
55      }      }
56        $self->{open} = 1;
57      }
58    }
59    
60    sub getStatus {
61      my $self = shift;
62      my $status;
63      if ($self->{resulthandle_type} eq 'Tangram::Cursor') {
64        $status = {
65          err => $self->{RESULTHANDLE}->err,
66          errstr => $self->{RESULTHANDLE}->errstr,
67          state => $self->{RESULTHANDLE}->state,
68        };
69      }
70      if ($self->{resulthandle_type} eq 'Set::Object') {
71        #print Dumper($self->{RESULTHANDLE}->members());
72        $status = {
73          empty => isEmpty($self->{RESULTHANDLE}),
74        },
75    }    }
76      return $status;
77  }  }
78    
 sub getStatus { }  
79    
80  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed