libs/Data/Query.pm

##  --------------------------------------------------------------------------------
##  $Id: Query.pm,v 1.3 2003/02/09 04:50:32 joko Exp $
##  --------------------------------------------------------------------------------
##  $Log: Query.pm,v $
##  Revision 1.3  2003/02/09 04:50:32  joko
##  - purged old code
##
##  Revision 1.2  2002/12/27 16:02:39  joko
##  - object constructor
##  + now utilizing DesignPattern::Object
##  + use Data::Query::Element::LV
##
##  Revision 1.1  2002/12/23 04:23:24  joko
##  + initial check-in
##
##  --------------------------------------------------------------------------------


package Data::Query;

use strict;
use warnings;

use base qw(
  DesignPattern::Object
  DesignPattern::Logger
);


use Data::Dumper;

use Regexp::Group;
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.4	## $Id: Query.pm,v 1.3 2003/02/09 04:50:32 joko Exp $
3	joko	1.1	## --------------------------------------------------------------------------------
4	joko	1.2	## $Log: Query.pm,v $
5	joko	1.4	## Revision 1.3 2003/02/09 04:50:32 joko
6			## - purged old code
7			##
8	joko	1.3	## Revision 1.2 2002/12/27 16:02:39 joko
9			## - object constructor
10			## + now utilizing DesignPattern::Object
11			## + use Data::Query::Element::LV
12			##
13	joko	1.2	## Revision 1.1 2002/12/23 04:23:24 joko
14			## + initial check-in
15			##
16	joko	1.1	## --------------------------------------------------------------------------------
17
18
19			package Data::Query;
20
21			use strict;
22			use warnings;
23
24	joko	1.4	use base qw(
25			DesignPattern::Object
26			DesignPattern::Logger
27			);
28	joko	1.1
29
30			use Data::Dumper;
31
32			use Regexp::Group;
33			use Data::Compare::Struct qw( isEmpty );
34
35	joko	1.2	use Data::Query::Element::LV;
36	joko	1.1
37			sub _init {
38			my $self = shift;
39
40	joko	1.2	if ($self->{options}) {
41			$self->{__options} = $self->{options};
42			delete $self->{options};
43			my $possible_keys = $self->{__options}->getPossibleOptionKeys();
44			my $options = $self->{__options}->getOptions();
45			foreach (@$possible_keys) {
46			$self->{$_} = Data::Query::Element::LV->new($options->{$_});
47			}
48			}
49	joko	1.1
50			}
51
52			sub getOptions {
53			my $self = shift;
54	joko	1.2	return $self->{__options}->getOptions();
55	joko	1.1	}
56
57			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26