Select Code to Download

sub load {
    my $class = shift;
...
        _STATUS     => STATUS_UNSET,# status of the session object
        _QUERY      => undef        # query object
    }, $class;

    # checking for expiration ticker
    if ( $self->{_DATA}->{_SESSION_ETIME} ) {
...
        }
    }

sub flush {
    my $self = shift;

...
    }
    return 1;
}