eher allgemeine fragen zu oop - #135933 (Allgemeines zu Perl)

esskar

2010-04-13 14:23

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ja, schon, aber deine Kinder/Module/Plugins müssen ja irgendwie an das Haupt-Modul rankommen. ich würde das ganze so tun:

Code (perl): (dl )

package Daemon;

sub load_module {
   my ($self, $module_class) = @_;
   $module_class->new( daemon => $self );
}

sub log {
   my $self = shift;
   print STDERR @_;
}

1;

package Daemon::Plugin;
use base qw/Class::Accessor::Faster/;

__PACKAGE__->mk_accessors(qw/daemon/);

1;

alle deine module leiten jetzt von Daemon::Plugin ab, und können intern dann den daemon nutzen

Code (perl): (dl )

package MyModul;
use base qw/Daemon::Plugin/;

sub foo {
   my $self = shift;

   $self->daemon->log("foo called in package " . __PACKAGE__ );
}