Reunión técnica del 23 de Marzo de 2011

use 5.13.7;
use DateTime;
use URI;
use utf8;

our $reunión = {
    cuando  => DateTime->new(
        day    => 23,
        month  => 3,
        year   => 2011,
        hour   => 19,
        minute => 30,
    ),
    donde   => {
        nombre    => 'Oficina rentalia.com',
        dirección => 'Gran Vía, 31, 9º 10',
        url       => URI->new('http://rentalia.com/'),
    },
    que     => {
        'Mojolicious 1.x' => {
            duración => '40 minutos',
            presenta => 'diegok',
        },
        'Pod2::ES, estado del desarrollo' => {
            duración => '15 minutos',
            presenta => 'explorer',
        },
        'Regexp-Fu, 1st Dan Teaser' => {
            duración => '20 minutos',
            presenta => 'deibyz',
        },
        'Mongoose' => {
            duración => '20 minutos',
            presenta => 'rodrigolive',
        },
    },
    quienes => [ qw/ diegok deibyz fran darkturo explorer roberto jcamunas blas.gordon dsastrem / ],
};

# push $reunion->{quienes}, 'salva' if rand > 0.4;
push $reunion->{quienes}, 'adrian';
push @{ $reunion->{quienes} }, 'eric';
sleep 12390;
push $reunion->{quienes}, 'rodrigo';