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;