#!/usr/bin/perl

package classes::module_proto;

use strict;
use warnings;

our %ActionsHash        =
        (
        "list"  => { 'postaction' => sub { $_[0]->list_all() } },
        "edit"  => { 'postaction' => sub { $_[0]->edit_one() } },
        );
                
sub new
        {
        my ($pkg, $name ) = @_;
        #------------------
        my $Self = {};
        #------------------
        bless( $Self, (ref $pkg || $pkg) );
        $Self->{'ActionHash'}   = \%ActionsHash; 
        # ...
        return $Self;
        }


sub _handle_event
        {
        my $Self = shift;
        my $action = shift;
        # ...
        my $func = $ActionsHash{ $action }{'postaction'} ;
        # ...
        my ($result, $error) = $func->( $Self, $action ) ;
        # ...
        return ($result, $error);
        }


sub edit_one    
        {
        my $Self = shift;
        # ...
        return ( 1, undef);
        }

sub list_all
        {
        my $Self = shift;
        # ...
        return ( 1, undef);
        }
        
#-------

package classes::module_sources;

use strict;
use warnings;

our @ISA = qw( classes::module_proto );

my %SourcesActionsHash  =
        (
        "list"  => { 'postaction' => sub { $_[0]->list_all() } },
        "edit"  => { 'postaction' => sub { $_[0]->edit_one() } },
        );


sub new
        {
        my ($pkg, $name ) = @_;
        #------------------
        my $Self = $pkg->SUPER::new( $name );
        bless( $Self, (ref $pkg || $pkg) );

        $Self->{'ActionHash'}   = \%SourcesActionsHash; 

        return $Self;
        }

sub list_all
        {
        my $Self = shift;
        # ... tu etwas spezielles mit sources
        return ( 1, undef);
        }       
#-------

package main;

use strict;
use warnings;

use Data::Dumper;

my $sources = classes::module_sources->new();

print Dumper $sources->_handle_event( 'edit' );
<STDIN>;

__END__