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