perl ditaa class implementation