File Coverage

blib/lib/Bb/Collaborate/Ultra/LaunchContext.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	31	54.8

package Bb::Collaborate::Ultra::LaunchContext;
use warnings; use strict;
use Mouse;
extends 'Bb::Collaborate::Ultra::DAO';
use Bb::Collaborate::Ultra::User;
has 'user' => (isa => 'Bb::Collaborate::Ultra::User', is => 'rw', coerce => 1);

=head1 NAME

Bb::Collaborate::Ultra::LaunchContext - Session Launch Context

=head1 DESCRIPTION

This class is used to construct details for joining a session,
including user identification and permissions.

    my $user = Bb::Collaborate::Ultra::User->new({
	extId => 'testLaunchUser',
	displayName => 'David Warring',
	email => '[e-mail]',
	firstName => 'David',
	lastName => 'Warring',
    });

    my $launch_context =  Bb::Collaborate::Ultra::LaunchContext->new({ launchingRole => 'moderator',
	 editingPermission => 'writer',
	 user => $user,
	 });

=head1 METHODS

See L.

=cut

=head2 join_session

    my $join_url = $launch_context->join_session($session);

Obtain a url to join a particular session.

=cut


sub join_session {
    my $self = shift;
    my $session = shift;
    my $connection = shift || $session->connection
	or die "not connected";
    my $session_path = $session->path.'/url';
    my $data = $self->_freeze;
    my $response = $connection->POST($session_path, $data);
    my $msg = $response;
    $msg->{url};
}

__PACKAGE__->load_schema();
1;
# downloaded from https://xx-csa.bbcollab.com/documentation
__DATA__