burguillos.info/lib/BurguillosInfo/Ad.pm

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;