In honor to the progeny origin of my nickname, here's the first verse of W.B. Yeats' The double vision of Michael Robartes.
# On the grey rock of Cashel the mind's eye # Has called up the cold spirits that are born # When the old moon is vanished from the sky # And the new still hides her horn. # # W.B. Yeats # The double vision of Michael Robartes package Cashel; @ISA=('Rock::Grey'); my $mind{'eye'}=&spirits; sub spirits { if (not exists Sky::Moon) && (not defined (Sky::Moon->new)->{'horn'}) { $spirit=Spirits->new('cold'); } return $spirits||undef; }


Update: changed progeny to what I really meant to say :)