The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Elive::StandardV2::SessionAttendance;
use warnings; use strict;

use Mouse;
use Carp;

extends 'Elive::StandardV2';

use Elive::StandardV2::SessionAttendance::Attendees;

=head1 NAME

Elive::StandardV2::SessionAttendance - Elluminate Session Attendance Report

=head1 DESCRIPTION

This is the main entity class for session attendance reports.

=cut

__PACKAGE__->entity_name('SessionAttendance');
__PACKAGE__->params(sessionId => 'Int',
		    startTime => 'HiResDate',
		    endTime => 'HiResDate',
    );

=head1 PROPERTIES

=head2 roomName (Str)

The name of the room. This is derived from the name of the session as it was defined at the time the scheduled session was launched.

=cut

has 'roomName' => (is => 'rw', isa => 'Str', required => 1,
		   documentation => 'Name of the room'
    );

=head2 roomOpened (HiResDate)

The date and time that the room opened (also known as the date and time session was launched) in milliseconds.

=cut

has 'roomOpened' => (is => 'rw', isa => 'HiResDate', required => 1,
		       documentation => 'date and time that the session was launched');

=head2 roomClosed (HiResDate)

The date and time that the room shut down.

=cut

has 'roomClosed' => (is => 'rw', isa => 'HiResDate', required => 1,
		       documentation => 'date and time that room shut down');

=head2 attendees (Arr)

This is a collection of L<Elive::StandardV2::SessionAttendance::Attendee> objects. This collection represents all the attendees who were present in this session between the roomOpen and roomClosed time.

Since guests can attend sessions, not all the attendees may be users in your system.

=cut

has 'attendees' => (is => 'rw', isa => 'Elive::StandardV2::SessionAttendance::Attendees',
		    coerce => 1, documentation => 'Session attendees',);

# give soap a helping hand
__PACKAGE__->_alias(attendeeResponseCollection => 'attendees');

=head1 METHODS

=cut

=head2 list

    my $session_id = '123456789012';
    my $yesterday = DateTime->today->subtract(days => 1);

    my $attendance = Elive::StandardV2::SessionAttendance->list(
                                    sessionId => $session_id,
                                    startTime => $yesterday->epoch.'000');

Gets a session attendance report. It returns a reference to an array of Elive::StandardV2::SessionAttendance objects.

The attendance information is returned for the specified session for the 24 hour period starting from the date/time passed in. If the session ran more than once during that 24 hour period, you will get the attendance data for all instances of the session that ran during that date.
=cut

1;