# In "Shop.pm"...
package Shop;
use base 'Titanium';

sub setup {
	my $c = shift;

    $c->start_mode('families');
    $c->error_mode('fallo');
    $c->run_modes([qw/
    families
    products
    fallo
    /]);
}

sub families {
	my $c = shift;
	my $errs = shift;

    my $plantilla = $c->load_tmpl;
    $plantilla->param(
		     TITULO_PAGINA => 'titulo',
		     CUERPO_PAGINA => 'cuerpo',
    );
    return $plantilla->output;
}

sub products {
	my $c = shift;

    my $plantilla = $c->load_tmpl;
    $plantilla->param(
		     TITULO_PAGINA => 'olutit',
		     CUERPO_PAGINA => 'opreuc',
    );
    return $plantilla->output;
}

sub fallo {
	my $c = shift;
	
	my $plantilla = $c->load_tmpl;
	$plantilla->param(
		     TITULO_PAGINA => 'FALLO fallo FALLO',
		     CUERPO_PAGINA => 'error ERROR error',
	);
}

1;