libs/DesignPattern/Object.pm

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


package DesignPattern::Object;

use strict;
use warnings;

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

1;
1	## --------------------------------------------------------------------------------
2	## $Id$
3	## --------------------------------------------------------------------------------
4	## $Log$
5	## --------------------------------------------------------------------------------
6
7
8	package DesignPattern::Object;
9
10	use strict;
11	use warnings;
12
13	sub _abstract_function {
14	my $self = shift;
15	my $self_classname = ref $self;
16	my $function_name = shift;
17	# was:
18	# $logger->error( __PACKAGE__ . ": function \"$fName\" is an abstract method, please implement it in \"$class\"");
19	# is:
20	die( __PACKAGE__ . ": Function '$function_name' is an abstract method, please implement it in '$self_classname'.");
21	#exit;
22	}
23
24	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26