Perl Ditaa class implementation