view release on metacpan or  search on metacpan

t/modules/Helloworld.mom  view on Meta::CPAN

use base qw(App::Modular::Module);

sub module_depends {
   my ($self) = shift;
   $self->modularizer()->mlog(99, "Helloworld: I depend on Printer");
   return "Printer";
};

sub sayhello { 
   my ($self) = shift;
   $self->modularizer()->mlog(99, "Helloworld will say hello now");
   $self->modularizer()->module('Printer')->
      printer("Hello, World!\n"); 
   return;
};

sub stringhello {
   my ($self) = shift;

   $self->modularizer()->mlog(99, "Helloworld will return a greeting");
   return $self->modularizer()->module('Printer')->