path: root/lib/Object/Groupware/Calendar.pm

use v5.36;
use Feature::Compat::Class 0.07;

package Object::Groupware::Calendar 0.01;

class Object::Groupware::Calendar;

use utf8;

use Log::Any qw( );
use Data::ICal::DateTime;

use Object::Groupware::Event;

field $log = Log::Any->get_logger;

# borrow from Data::ICal::new() signature
field $data : param     = undef;
field $filename : param = undef;

ADJUST {
    if ($data) {
        if ( $data isa Data::ICal ) { }
        else { $data = Data::ICal->new( data => $data ) }
    }
    elsif ($filename) { $data = Data::ICal->new( filename => $filename ) }

    if ( $log->is_trace ) {
        use DDP;
        p $data;
    }
}

# mimick Data::ICal::DateTime::events() signature
method events ( $set = undef, $period = undef )
{
    $log->infof(
        'will pick events between %s and %s',
        $set->start, $set->end
    ) if $set;

    my @events = map { Object::Groupware::Event->new( entry => $_ ) } sort {
               $a->start->compare( $b->start )
            || $a->start->compare( $b->start )
            || $a->summary cmp $b->summary
    } $data->events( $set || (), $period || () );

    return @events;
}

1;