libs/Data/Query.pm

##  --------------------------------------------------------------------------------
##  $Id: Query.pm,v 1.1 2002/12/23 04:23:24 joko Exp $
##  --------------------------------------------------------------------------------
##  $Log: Query.pm,v $
##  Revision 1.1  2002/12/23 04:23:24  joko
##  + initial check-in
##
##  --------------------------------------------------------------------------------


package Data::Query;

use strict;
use warnings;

use base 'DesignPattern::Object';
use base 'DesignPattern::Object::Logger';


use Data::Dumper;

use Regexp::Group;
use libp qw( mkObject );
use Data::Compare::Struct qw( isEmpty );

use Data::Query::Element::LV;

sub _init {
  my $self = shift;
  
  if ($self->{options}) {
    $self->{__options} = $self->{options};
    delete $self->{options};
    my $possible_keys = $self->{__options}->getPossibleOptionKeys();
    my $options = $self->{__options}->getOptions();
    foreach (@$possible_keys) {
      $self->{$_} = Data::Query::Element::LV->new($options->{$_});
    }
  }

}

sub getOptions {
  my $self = shift;
  return $self->{__options}->getOptions();
}

1;
1	joko	1.1	## --------------------------------------------------------------------------------
2	joko	1.2	## $Id: Query.pm,v 1.1 2002/12/23 04:23:24 joko Exp $
3	joko	1.1	## --------------------------------------------------------------------------------
4	joko	1.2	## $Log: Query.pm,v $
5			## Revision 1.1 2002/12/23 04:23:24 joko
6			## + initial check-in
7			##
8	joko	1.1	## --------------------------------------------------------------------------------
9
10
11			package Data::Query;
12
13			use strict;
14			use warnings;
15
16	joko	1.2	use base 'DesignPattern::Object';
17	joko	1.1	use base 'DesignPattern::Object::Logger';
18
19
20			use Data::Dumper;
21
22			use Regexp::Group;
23			use libp qw( mkObject );
24			use Data::Compare::Struct qw( isEmpty );
25
26	joko	1.2	use Data::Query::Element::LV;
27	joko	1.1
28			sub _init {
29			my $self = shift;
30
31	joko	1.2	if ($self->{options}) {
32			$self->{__options} = $self->{options};
33			delete $self->{options};
34			my $possible_keys = $self->{__options}->getPossibleOptionKeys();
35			my $options = $self->{__options}->getOptions();
36			foreach (@$possible_keys) {
37			$self->{$_} = Data::Query::Element::LV->new($options->{$_});
38			}
39			}
40	joko	1.1
41			}
42
43			sub getOptions {
44			my $self = shift;
45	joko	1.2	return $self->{__options}->getOptions();
46	joko	1.1	}
47
48			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26