libs/Data/Query.pm

##  --------------------------------------------------------------------------------
##  $Id$
##  --------------------------------------------------------------------------------
##  $Log$
##  --------------------------------------------------------------------------------


package Data::Query;

use strict;
use warnings;

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


use Data::Dumper;

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

# ------------    common perl object constructor    ------------
sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my @args = ();
  @_ && (@args = @_);
  #$logger->debug( __PACKAGE__ . "->new( @args )" );      # this is not "common"!
  my $self = { @_ };
  bless $self, $class;
  $self->{caller} = caller;
  
  #print Dumper(caller(2));
  #exit;
  
  $self->_init();
  return $self;
}  

sub _init {
  my $self = shift;
  
  #print Dumper($self->{options}->getOptions());

}

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

1;
1	## --------------------------------------------------------------------------------
2	## $Id$
3	## --------------------------------------------------------------------------------
4	## $Log$
5	## --------------------------------------------------------------------------------
6
7
8	package Data::Query;
9
10	use strict;
11	use warnings;
12
13	use base 'DesignPattern::Object::Logger';
14
15
16	use Data::Dumper;
17
18	use Regexp::Group;
19	use libp qw( mkObject );
20	use Data::Compare::Struct qw( isEmpty );
21
22	# ------------ common perl object constructor ------------
23	sub new {
24	my $invocant = shift;
25	my $class = ref($invocant) \|\| $invocant;
26	my @args = ();
27	@_ && (@args = @_);
28	#$logger->debug( __PACKAGE__ . "->new( @args )" ); # this is not "common"!
29	my $self = { @_ };
30	bless $self, $class;
31	$self->{caller} = caller;
32
33	#print Dumper(caller(2));
34	#exit;
35
36	$self->_init();
37	return $self;
38	}
39
40	sub _init {
41	my $self = shift;
42
43	#print Dumper($self->{options}->getOptions());
44
45	}
46
47	sub getOptions {
48	my $self = shift;
49	return $self->{options}->getOptions();
50	}
51
52	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26