Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

The double vision of Michael Robartes

by robartes (Priest)
on Oct 27, 2002 at 11:55 UTC ( #208330=poem: print w/replies, xml ) Need Help??

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; }

CU
Robartes-

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://208330]
Approved by JaWi
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2023-09-22 19:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?