libs/Data/Query.pm

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