burguillos.info/lib/BurguillosInfo/Ad.pm

package BurguillosInfo::Ad;

use v5.36.0;

use strict;
use warnings;

use feature 'signatures';

use Moo::Role;

sub order {
    return 999;
}

sub seconds {
    return 15;
}

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;