Algoritmo básico de electricidad Perl/Gtk3

Esta vez vamos a hablar  de programación funcional desviando las señales de botones a una subrutina:

En wikipedia se refiere a eso,aunque como soy autodidacta no estoy muy seguro XD así que si alguien es programador de alto nivel dígame si estoy en lo correcto,de que esto es programación funcional.

Lo que vamos a hacer es el algoritmo básico de electricidad,como funciona en nuestra casa.

Comienza llegando la energía desde la calle,pasa el parámetro del switch (abajo o arriba la palanca) y manda la energía a la casa,que seria apagadores,contacto,etc esto es básico o prácticamente obvio.

Pero bueno lo que hace este programa es simular eso,osea lo siguiente,carga una imagen que simula el foco apagado,tiene dos interruptores(hechos con el widget de Gtk3 llamado switch),uno que simula el switch y otro que simula el apagador,si el apagador es encendido prende el foco(carga otra imagen de un foco prendido) pero solo si el switch esta encendido.

Solo hay una dos cosas para que les sirva este programa

1.Necesitan usar Gnome 3 y tener instalado el modulo de perl Gtk3

Para ello(En terminal):

su

cpan

install Gtk3

2.No tengo no idea de diseño gráfico y el foco se ve  un poco muy feo, así que si pudieran cambiarlo estaría muy bien :D

Bien aquí un vídeo

Este es el enlace de la carpeta con las imágenes y script

Enlace

Y este es el código

Enlace 

Espero que les sirva para entender mas como funcionan las sub rutinas en Perl, ya que esto solo se trata de recibir señales y hacer algo con ellas (basadas en la orden de la función/rutina)

Eso es todo