60 lines
1.1 KiB
Perl
60 lines
1.1 KiB
Perl
package BurguillosInfo::Ads::YoTeLoGuiso;
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Moo;
|
|
|
|
use parent 'BurguillosInfo::Ad';
|
|
|
|
sub id ($self) {
|
|
return 'yo-te-lo-guiso';
|
|
}
|
|
|
|
sub weight {
|
|
return 50;
|
|
}
|
|
|
|
sub max_alternative {
|
|
return 3;
|
|
}
|
|
|
|
sub default_alternative($self) {
|
|
return int($self->alternative * ($self->max_alternative + 1));
|
|
}
|
|
|
|
sub is_active ($self) {
|
|
return 1;
|
|
}
|
|
|
|
sub img ($self) {
|
|
if ( $self->default_alternative == 2 ) {
|
|
return '/img/anuncio-yo-te-lo-guiso-3.webp';
|
|
}
|
|
if ( $self->default_alternative == 1 ) {
|
|
return '/img/anuncio-yo-te-lo-guiso-2.webp';
|
|
}
|
|
return '/img/anuncio-yo-te-lo-guiso-1.webp';
|
|
}
|
|
|
|
sub text($self) {
|
|
if ( $self->default_alternative == 2 ) {
|
|
return '¡Comida distinta cada día! Ven a YoTeLoGuiso.';
|
|
}
|
|
if ( $self->default_alternative == 1 ) {
|
|
return
|
|
'Una comida como esta no la ves todos los días, disponible en Burguillos, entra y descubrelo. Y O T E L O G U I S O';
|
|
}
|
|
return 'Comida hecha como en tu casa, YoTeLoGuiso...';
|
|
}
|
|
|
|
sub href {
|
|
return '/posts/yo-te-lo-guiso?come-from-ad=1';
|
|
}
|
|
1;
|