CGI :: Panel

Crear aplicaciones web de eventos de estado de los objetos de panel simples
Descargar ahora

CGI :: Panel Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Rob Symes
  • Sitio web del editor:
  • http://search.cpan.org/~rsymes/

CGI :: Panel Etiquetas


CGI :: Panel Descripción

Crea aplicaciones web impulsadas por eventos de estado de objetos de panel simples CGI :: Panel es un módulo Perl que permite que las aplicaciones se construyan de componentes simples basados ​​en objetos. Se encargará del estado de sus datos y objetos para que pueda escribir una aplicación web al igual que una aplicación de escritorio. Puede olvidarse de las solicitudes y respuestas de HTTP, ya sea que estemos obteniendo o publicando, y todas las cosas porque, todo lo que se maneja para que lo está dejando interactuar con una aplicación API simple, se construye a partir de un conjunto de 'paneles', Cada uno de los cuales puede contener otros paneles. Los paneles se gestionan detrás de las escenas como objetos persistentes. Consulte las aplicaciones de muestra para ejemplos de las aplicaciones complejas basadas en objetos se pueden construir a partir de componentes encapsulados simples. Para probar la aplicación de demostración, copie los contenidos del directorio 'Demo' a un CGI-bin Directory.cgi.cgi :: Panel le permite diseñar la lógica de su aplicación de manera impulsada por eventos. Es decir, configura su solicitud de la forma en que lo desea, con botones especiales y enlaces que desencadenan los 'eventos'. La solicitud luego se sienta y cuando se activa un evento, se ejecuta el código asociado con ese evento. El código que responde a un evento va en la misma clase que el código que genera el botón de evento o el enlace, lo que hace que el código sea más legible y se puede mantener. Si el Código de eventos cambia el estado de cualquiera de los paneles, los paneles permanecerán en el nuevo estado, hasta que su estado se cambie de nuevo. Cada panel está encapsulado no solo en términos del código, sino en términos de los datos del formulario que se pasa a través. Por ejemplo, se puede definir una clase de panel que tiene un campo de texto llamado 'nombre'. Tres instancias de este panel pueden existir simultáneamente y cada uno obtendrá el valor correcto del parámetro 'Nombre' cuando leen sus parámetros (consulte el método 'local_params') .Synopsisa. Solicitud de trabajo muy simple que consiste en un conductor CGI y dos clases de paneles. ... en SIMPLAPP.CGI: Use SIMPLEAPP; My $ Simple_App = Obtenga SIMPLEAPP; $ SIMPLE_APP-> CICLO (); EN SIMPLEAPP.PM: Paquete SIMPLEAPP; Utilice la base QW (CGI :: Panel); Cesta de uso; sub init {my ($ self) = @_; $ yo-> Add_Panel ('Cesta1', canasta nueva); # Agregar un panel de sub-panel $-> Add_Panel ('Cesta2', cesta nueva); # Añadir un sub-panel $ auto-> Add_Panel ('Cesta3', cesta nueva); # Agregar un panel sub-panel $ auto -> {COUNT} = 1; # Inicialice algunos datos persistentes} sub _event_add {# Responder al botón, haga clic en evento debajo de mi ($ self, $ event) = @_; $ yo-> {cuento} ++; # Cambiar los datos persistentes} Sub Pantalla {My ($ Self) = @_; Devuelve 'Esta es una aplicación muy simple'. . # Mostrar los datos persistentes ... "Mi cuenta actual es $ auto -> {COUNT}". # Mostrar los sub-paneles ... " ". "". $ Self-> Panel ('Cesta1') -> Pantalla. "". "". $ Self-> Panel ('Cesta2') -> Pantalla. "". "". $ Self-> Panel ('Cesta3') -> Pantalla. "". " ". # Mostrar un botón que genere un evento ... $ Self-> Event_Button (Label => 'Agregar 1', Nombre => 'Agregar'); } 1; en la cesta.pm: cesta del paquete; Utilice la base QW (CGI :: Panel); sub init {my ($ self) = @_; $ yo -> {contenidos} = []; } Sub _Event_Add {# Responde al evento del botón en 'Pantalla' mi ($ self, $ event) = @_; # Obtenga los parámetros localizados del panel # (Muchas instancias de este panel, cada una obtenga # sus propios parámetros locales) My% Local_Params = $ Self-> Local_Params; PUSH @ {$ AUTO -> {CONTENIDOS}}, $ local_params {item_name}; } Sub mostrar {My ($ Self) = @_; Devuelve '

'. Únase a ('', (map {""}} {$ auto -> {contenidos}})). ''. # Campo de texto localizado ''. ''; }; 1; Requisitos: · Perl


CGI :: Panel Software relacionado

Sobre nosotros

$ _
'. $ auto-> local_textfield ({name => 'item_name', tamaño => 10}). ''. Botón de # que generará un evento (manejado por _event_add arriba) ''. $ Self-> Event_Button (Label => 'Agregar', nombre => 'agregar'). ''. '