59 lines
984 B
Perl
59 lines
984 B
Perl
package BurguillosInfo::Ads::Anunciate;
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Moo;
|
|
|
|
use parent 'BurguillosInfo::Ad';
|
|
|
|
|
|
sub max_alternative {
|
|
return 1;
|
|
}
|
|
|
|
sub default_alternative($self) {
|
|
return int($self->alternative * ($self->max_alternative + 1));
|
|
}
|
|
|
|
sub weight {
|
|
return 10;
|
|
}
|
|
|
|
sub id ($self) {
|
|
return 'anunciate';
|
|
}
|
|
|
|
sub is_active ($self) {
|
|
return 1;
|
|
}
|
|
|
|
sub seconds($self) {
|
|
if ($self->default_alternative == 1) {
|
|
return 5;
|
|
}
|
|
return 8;
|
|
}
|
|
|
|
sub img {
|
|
return '/img/burguillos-new-logo.svg';
|
|
}
|
|
|
|
sub href {
|
|
return 'mailto:contact@owlcode.tech?subject=Quiero%20anunciarme%20en%20Burguillos.info';
|
|
}
|
|
|
|
sub text($self) {
|
|
if ($self->default_alternative == 1) {
|
|
return '¡Anunciate en Burguillos.info! Precios a partir de 18.15€, pulsa aquí y escribenos.';
|
|
}
|
|
return
|
|
'Pulsando este anuncio puedes enviarnos un correo para anunciarte en este sitio. ¡Si me ves funciona!';
|
|
}
|
|
1;
|