#!/usr/bin/perl --
use strict; use warnings;
use Data::Dumper ();
Main( @ARGV );
exit( 0 );
sub Main {
    my $user = "test";
    my $pass = "test";
    my $url  = "http://baikal.local/cal.php/principals/test/testshift";
    my $cal  = Cal::DAV->new(
        user => $user, pass => $pass, url => $url,
        auto_commit => 0, ## don't ->save any changes, we're testing here
    );
    dd( $cal->errors );
    dd( $cal->cal );
    dd( $cal );
}
sub dd {
  use Data::Dumper;
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}