my $user = "test";
my $pass = "test";
my $url = "http://baikal.local/cal.php/principals/test/testshift";
#my $url = "http://baikal.local/cal.php";
my $cal = Cal::DAV->new( user => $user, pass => $pass, url => $url);

my $dav = $cal->dav;

print Dumper($cal);
print Dumper($dav);

##</code><code>##

$VAR1 = bless( {
                 'url' => 'http://baikal.local/cal.php/principals/test/testshift',
                 '_dav' => bless( {
                                    '_lockedresourcelist' => bless( {
                                                                      '_resources' => undef
                                                                    }, 'HTTP::DAV::ResourceList' ),
                                    '_comms' => bless( {
                                                         '_headers' => bless( {}, 'HTTP::DAV::Headers' ),
                                                         '_user_agent' => bless( {
                                                                                   'max_redirect' => 7,
                                                                                   'protocols_forbidden' => undef,
                                                                                   'show_progress' => undef,
                                                                                   'handlers' => {
                                                                                                   'response_header' => bless( [
                                                                                                                                 {
                                                                                                                                   'owner' => 'LWP::UserAgent::parse_head',
                                                                                                                                   'callback' => sub { "DUMMY" },
                                                                                                                                   'm_media_type' => 'html',
                                                                                                                                   'line' => '/usr/share/perl5/LWP/UserAgent.pm:612'
                                                                                                                                 }
                                                                                                                               ], 'HTTP::Config' )
                                                                                                 },
                                                                                   'no_proxy' => [],
                                                                                   'protocols_allowed' => undef,
                                                                                   'local_address' => undef,
                                                                                   'use_eval' => 1,
                                                                                   'requests_redirectable' => [
                                                                                                                'GET',
                                                                                                                'HEAD'
                                                                                                              ],
                                                                                   'timeout' => 180,
                                                                                   'def_headers' => bless( {
                                                                                                             'user-agent' => 'DAV.pm/v0.47'
                                                                                                           }, 'HTTP::Headers' ),
                                                                                   'proxy' => {},
                                                                                   'basic_authentication' => {
                                                                                                               'baikal.local:80' => {
                                                                                                                                             'default' => [
                                                                                                                                                            'test',
                                                                                                                                                            'test'
                                                                                                                                                          ]
                                                                                                                                           }
                                                                                                             },
                                                                                   'max_size' => undef
                                                                                 }, 'HTTP::DAV::UserAgent' )
                                                       }, 'HTTP::DAV::Comms' )
                                  }, 'HTTP::DAV' ),
                 '_auto_commit' => undef
               }, 'Cal::DAV' );
$VAR1 = bless( {
                 '_lockedresourcelist' => bless( {
                                                   '_resources' => undef
                                                 }, 'HTTP::DAV::ResourceList' ),
                 '_comms' => bless( {
                                      '_headers' => bless( {}, 'HTTP::DAV::Headers' ),
                                      '_user_agent' => bless( {
                                                                'max_redirect' => 7,
                                                                'protocols_forbidden' => undef,
                                                                'show_progress' => undef,
                                                                'handlers' => {
                                                                                'response_header' => bless( [
                                                                                                              {
                                                                                                                'owner' => 'LWP::UserAgent::parse_head',
                                                                                                                'callback' => sub { "DUMMY" },
                                                                                                                'm_media_type' => 'html',
                                                                                                                'line' => '/usr/share/perl5/LWP/UserAgent.pm:612'
                                                                                                              }
                                                                                                            ], 'HTTP::Config' )
                                                                              },
                                                                'no_proxy' => [],
                                                                'protocols_allowed' => undef,
                                                                'local_address' => undef,
                                                                'use_eval' => 1,
                                                                'requests_redirectable' => [
                                                                                             'GET',
                                                                                             'HEAD'
                                                                                           ],
                                                                'timeout' => 180,
                                                                'def_headers' => bless( {
                                                                                          'user-agent' => 'DAV.pm/v0.47'
                                                                                        }, 'HTTP::Headers' ),
                                                                'proxy' => {},
                                                                'basic_authentication' => {
                                                                                            'baikal.local:80' => {
                                                                                                                          'default' => [
                                                                                                                                         'test',
                                                                                                                                         'test'
                                                                                                                                       ]
                                                                                                                        }
                                                                                          },
                                                                'max_size' => undef
                                                              }, 'HTTP::DAV::UserAgent' )
                                    }, 'HTTP::DAV::Comms' )
               }, 'HTTP::DAV' );