Select Code to Download

sub optional_unique_properties {
    qw(
...
        due duration
    );
}

use Data::Dumper;
use strict;
...

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

$VAR1 = 'class';
$VAR2 = 'completed';
...
$VAR18 = 'url';
$VAR19 = 'due';
$VAR20 = 'duration';

use base qw/Data::ICal::Entry/;

sub new {
    my $class = shift;
...
    bless $self, $class;
    return $self;
}