Storage/Result/Abstract.pm

############################################
#
#  $Id: Abstract.pm,v 1.1 2002/11/29 04:55:45 joko Exp $
#
#  $Log: Abstract.pm,v $
#  Revision 1.1  2002/11/29 04:55:45  joko
#  + initial check-in
#
#  Revision 1.1  2002/10/10 03:43:53  cvsjoko
#  + new
#
#
############################################

package Data::Storage::Result::Abstract;

use strict;
use warnings;

use Data::Dumper;

# get logger instance
my $logger = Log::Dispatch::Config->instance;

sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my $self = { type => $invocant, @_ };
  bless $self, $class;
  return $self;
}

sub AUTOLOAD {
  my $self = shift;
  our $AUTOLOAD;
  return if $AUTOLOAD =~ m/::DESTROY$/;

  # find out methodname
  my $methodname = $AUTOLOAD;
  $methodname =~ s/^.*:://;

  # test for RESULTHANDLE
  if (!$self->{RESULTHANDLE}) {
    $logger->error( __PACKAGE__ .  ": " . "RESULTHANDLE is undefined while trying to execute method \"$methodname\"" );
    return;
  }

  # dispatch method-call to CORE-HANDLE
  if ($self->{RESULTHANDLE}->can($methodname) || $self->{RESULTHANDLE}->can("AUTOLOAD")) {
    #$logger->debug( __PACKAGE__ . "->" . $methodname . "(@_)" );
    $self->{RESULTHANDLE}->$methodname(@_);
  }

}

sub _abstract_function {
  my $self = shift;
  my $fName = shift;
  my $class = ref($self);
  $logger->error( __PACKAGE__ . ": function \"$fName\" is an abstract method, please implement it in \"$class\"");
  #exit;
}

# ====================================================
#   CONCRETE METHOD DUMMIES (croaking via "$logger" by calling "_abstract_function")
# ====================================================

  sub getNextEntry {
    my $self = shift;
    $self->_abstract_function('getNextEntry');
  }

  sub getStatus {
    my $self = shift;
    $self->_abstract_function('getStatus');
  }

1;
1	############################################
2	#
3	# $Id: Abstract.pm,v 1.1 2002/11/29 04:55:45 joko Exp $
4	#
5	# $Log: Abstract.pm,v $
6	# Revision 1.1 2002/11/29 04:55:45 joko
7	# + initial check-in
8	#
9	# Revision 1.1 2002/10/10 03:43:53 cvsjoko
10	# + new
11	#
12	#
13	############################################
14
15	package Data::Storage::Result::Abstract;
16
17	use strict;
18	use warnings;
19
20	use Data::Dumper;
21
22	# get logger instance
23	my $logger = Log::Dispatch::Config->instance;
24
25	sub new {
26	my $invocant = shift;
27	my $class = ref($invocant) \|\| $invocant;
28	my $self = { type => $invocant, @_ };
29	bless $self, $class;
30	return $self;
31	}
32
33	sub AUTOLOAD {
34	my $self = shift;
35	our $AUTOLOAD;
36	return if $AUTOLOAD =~ m/::DESTROY$/;
37
38	# find out methodname
39	my $methodname = $AUTOLOAD;
40	$methodname =~ s/^.*:://;
41
42	# test for RESULTHANDLE
43	if (!$self->{RESULTHANDLE}) {
44	$logger->error( __PACKAGE__ . ": " . "RESULTHANDLE is undefined while trying to execute method \"$methodname\"" );
45	return;
46	}
47
48	# dispatch method-call to CORE-HANDLE
49	if ($self->{RESULTHANDLE}->can($methodname) \|\| $self->{RESULTHANDLE}->can("AUTOLOAD")) {
50	#$logger->debug( __PACKAGE__ . "->" . $methodname . "(@_)" );
51	$self->{RESULTHANDLE}->$methodname(@_);
52	}
53
54	}
55
56	sub _abstract_function {
57	my $self = shift;
58	my $fName = shift;
59	my $class = ref($self);
60	$logger->error( __PACKAGE__ . ": function \"$fName\" is an abstract method, please implement it in \"$class\"");
61	#exit;
62	}
63
64	# ====================================================
65	# CONCRETE METHOD DUMMIES (croaking via "$logger" by calling "_abstract_function")
66	# ====================================================
67
68	sub getNextEntry {
69	my $self = shift;
70	$self->_abstract_function('getNextEntry');
71	}
72
73	sub getStatus {
74	my $self = shift;
75	$self->_abstract_function('getStatus');
76	}
77
78	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26