File Coverage

blib/lib/WebService/Mattermost/V4/API/Object/Role/BelongingToTeam.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	12	21	57.1

package WebService::Mattermost::V4::API::Object::Role::BelongingToTeam;

# ABSTRACT: Mark an object as belonging to a team.

use Moo::Role;
use Types::Standard qw(InstanceOf Maybe Str);

use WebService::Mattermost::Helper::Alias 'view';

################################################################################

has team_id => (is => 'ro', isa => Maybe[Str],                     lazy => 1, builder => 1);
has team    => (is => 'ro', isa => Maybe[InstanceOf[view 'Team']], lazy => 1, builder => 1);

################################################################################

sub _build_team_id {
    my $self = shift;

    return $self->raw_data->{team_id};
}

sub _build_team {
    my $self = shift;

    return unless $self->team_id;
    return $self->api->teams->get_by_id($self->team_id)->item;
}

################################################################################

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WebService::Mattermost::V4::API::Object::Role::BelongingToTeam - Mark an object as belonging to a team.

=head1 VERSION

version 0.26

=head1 DESCRIPTION

Link a view object to its creator.

=head2 ATTRIBUTES

=over 4

=item C<team_id>

The creator's string ID.

=item C<team>

Linked L<WebService::Mattermost::V4::API::Object::Team> object.

=back

=head1 AUTHOR

Mike Jones <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2020 by Mike Jones.

This is free software, licensed under:

  The MIT (X11) License

=cut