use Data::Dumper;
use strict;
use Data::ICal::Entry::Todo;

my $vtodo = Data::ICal::Entry::Todo->new();
print Dumper($vtodo->optional_unique_properties());