package Me;
use strict;
use warnings;

use Moo;

has 'typ' => (
    is => 'ro',
    required => 1,
);

has 'other' => (
    is => 'ro',
    required => 1,
);


sub info {
    my $self = shift;

    return $self->new(
        'typ' => 'INFO',
        'other' => "@_",
    );
}