view release on metacpan or  search on metacpan

contrib/Events.mom  view on Meta::CPAN

###################
our ($VERSION);
$VERSION = 0.001_001;

###################
### Constructor ###
###################
sub module_init {
   my ($type) = @_;

   my $self = $type->SUPER::module_init($type);

   $self->{'events'} = {};

   return $self;
};

###################
###Register Event##
###################
# register a module as event listener/"handler"

t/events/Events.mom  view on Meta::CPAN

###################
our ($VERSION);
$VERSION = 0.001_001;

###################
### Constructor ###
###################
sub module_init {
   my ($type) = @_;

   my $self = $type->SUPER::module_init($type);

   $self->{'events'} = {};

   return $self;
};

###################
###Register Event##
###################
# register a module as event listener/"handler"

t/modules/Family/Parents.mom  view on Meta::CPAN

package App::Modular::Module::Family::Parents;

use App::Modular;
our ($AUTOLOAD, @ISA);
use base qw(App::Modular::Module);
my $module_name = "Family::Parents";

sub module_init {
   my $type = shift;
   my $self = $type->SUPER::module_init($type);

   $self->{'mother'} = 'Eva';
   $self->{'father'} = 'Adam';

   return $self;
};

sub mother {
   my ($self, $mother) = @_;