| Math-LP documentation | Contained in the Math-LP distribution. |
Math::LP::Object - base class for objects in the Math::LP family
package Math::LP::Foo; # a new member Foo in the family
# derive Foo from Object
use Math::LP::Object;
use base qw(Math::LP::Object);
use fields qw(foo bar);
sub initialize {
my Math::LP::Foo $this = shift;
# put Foo specific initialization code here
# ...
return 1;
}
# And add Foo-specific methods
# ...
Math::LP::Object provides the following methods to classes derived from it:
Returns a new object, blessed in the package which it was called for. The returned object is a pseudo-hash, with fields specified using the fields pragma.
new() optionally accepts a hash of initial values of the data fields. After these values have been set, initialize() is called on the object. Specific initialization code for the derived class is thus to be put in the initialize() function of the derived class.
Dies with an error message, adding info on the last caller outside the Math::LP family.
croak() can be invoked both as a method and a package function.
The fields pragma is used here, which makes multiple inheritance impossible when other base classes also use the fields pragma (see fields). For this reason, Math::LP::LinearCombination and Math::LP::Variable are NOT derived from Math::LP::Object, and as a result have no access to the functionality the latter provides.
Wim Verhaegen <wimv@cpan.org>
Copyright(c) 2000-2001 Wim Verhaegen. All rights reserved. This program is free software; you can redistribute and/or modify it under the same terms as Perl itself.
| Math-LP documentation | Contained in the Math-LP distribution. |
package Math::LP::Object; use strict; use fields qw(); sub new { # constructs a new object my $pkg = shift; no strict 'refs'; my Math::LP::Object $this = fields::new($pkg); my %arg = @_; while(my($k,$v) = each %arg) { $this->{$k} = $v; } $this->initialize(); return $this; } sub initialize { # override in derived classes 1; } sub croak { # trace an error coming from outside the Math::LP functions shift if defined(ref $_[0]); # invoked on object for(my $i = 1; $i < 9999; ++$i) { # 9999 is an arbitrary upper limit my ($cpkg,$cfile,$cline,$csub) = caller($i); if($cpkg !~ /^Math::LP/) { # found the evil caller my $msg = join '', @_; chomp $msg; die $msg, " in $csub at line $cline of $cfile.\n"; } } } 1; __END__