25 lines
318 B
Perl
25 lines
318 B
Perl
package BurguillosInfo::Specie;
|
|
|
|
use v5.36.0;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Moo::Role;
|
|
|
|
sub can_be_global {
|
|
return 0;
|
|
}
|
|
|
|
sub serialize ($self) {
|
|
return {
|
|
id => $self->id,
|
|
name => $self->name,
|
|
image => $self->image,
|
|
};
|
|
}
|
|
|
|
requires 'id name image';
|
|
1;
|