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	joko	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