> > our $meeting = new
>Meeting::Approx->first(Thursday)->following(Tuesday)->butnot(Holiday);
> > print $meeting->getdate;
>
> Hmm... you have far too many barewords in there.
Those arn't barewords, they're constants[1].
> Also it seems over-complex. You seems to have fallen into the
> trap of believing The McCarroll Heresy. The canonical version
> would surely be something
>
> our $meeting = Meeting::Approx->new->first('Thursday');
> print $meeting->getdate;
Assuming it was for perl mongers....the ego-centricity of the man...
Actually, the shifting around holidays bit would be really
useful[2]. E.g. last friday of the month, except if it's Christmas/boxing
day/new years eve.
Later.
Mark.
[1] sub/no argument function/whatever you want to call it
[2] Also my idea ;-)
--
print "\n",map{my$a="\n"if(length$_>6);' 'x(36-length($_)/2)."$_\n$a"} (
Name => 'Mark Fowler', Title => 'Technology Developer' ,
Firm => 'Profero Ltd', Web => 'http://www.profero.com/' ,
Email => '[EMAIL PROTECTED]', Phone => '+44 (0) 20 7700 9960' )
