55 lines
824 B
Perl
55 lines
824 B
Perl
package BurguillosInfo::Ad;
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Moo::Role;
|
|
use Scalar::Util qw/blessed/;
|
|
|
|
has alternative => (
|
|
is => 'rw'
|
|
);
|
|
|
|
sub clone($self) {
|
|
my $class = blessed $self;
|
|
$self = $class->new;
|
|
$self->alternative(rand());
|
|
return $self;
|
|
}
|
|
|
|
sub weight {
|
|
return 25;
|
|
}
|
|
|
|
sub seconds($self) {
|
|
return 5;
|
|
}
|
|
|
|
sub serialize ($self) {
|
|
return {
|
|
id => $self->id,
|
|
img => $self->img,
|
|
text => $self->text,
|
|
href => $self->href,
|
|
seconds => $self->seconds,
|
|
};
|
|
}
|
|
|
|
{
|
|
my %instances;
|
|
|
|
sub instance ($class) {
|
|
if ( !defined $instances{$class} ) {
|
|
$instances{$class} = $class->new;
|
|
}
|
|
return $instances{$class};
|
|
}
|
|
}
|
|
|
|
requires 'id is_active img text href';
|
|
1;
|