view release on metacpan or  search on metacpan

lib/Controller.fcgi  view on Meta::CPAN

    $parameters{"runData"} = $aRunData;

    #print "CONF Parameter = ", $aRunData->getConfParameter(
    #                                         $aRunData->getParameter("module"),
    #                                         $aRunData->getParameter("parameter")); 

    my $aDispatcher = new BabelObjects::Runner::Dispatcher(\%parameters);
#    if () {
# 
#    } else {
        my $target = $aDispatcher->parseAndExecuteTransition();
        #$aLog->log("Target = $target");
        if ($target =~ m!^\w*://!) {
            # We consider it's an URL. We should do better
            print $req->redirect($target);
        } else {
            print("Content-type: text/html\r\n\r\n");
            $aDispatcher->parseFile($target);
        }
#    }
}
 
sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self) or croak "$self is not an object";
 
    my $name = $AUTOLOAD;
    $name =~ s/.*://;   # strip fully-qualified portion
 
    unless (exists $self->{_permitted}->{$name} ) {
        #croak "Can't access `$name' field in class $type";
        # On intercepte ici les erreurs liées aux tentatives d'appel
        # des méthodes inexistantes
        #print "Dispatcher AUTOLOAD = $AUTOLOAD\n";
        return $AUTOLOAD;
    }
 
    if (@_) {
        return $self->{$name} = shift;
    } else {
        return $self->{$name};
    }
}
 
1;

__END__
# Below is the stub of documentation for your module. You better edit it!

=head1 NAME

BabelObjects::Runner::Controller - Perl extension for blah blah blah

=head1 SYNOPSIS

  use BabelObjects::Runner::Controller;
  blah blah blah

=head1 DESCRIPTION

Stub documentation for BabelObjects::Runner::Controller was created by h2xs. It looks like the author of the extension was negligent enough to leave the stub unedited.

Blah blah blah.

=head1 AUTHOR

Jean-Christophe Kermagoret jck@babelo.org (http://www.BabelObjects.Org)

=head1 SEE ALSO

perl(1).

=cut