My day
sleep;
wake_up( -cause => $Relative::mum );
get_up;
wash( method => $Locations::home>bathroom->shower );
dress( $clothes->find_work_clothes );
go( target => $Locations::home>kitchen, -method => $Transportation::feet );
eat( $Meal::breakfast );
wash( -method => $Object::toothbrush, -part => $BodyParts::teeth );
pack( $Object::pannier );
go( -target => $Locations::work, -method => $Transportation::bicycle_with_comfy_new_saddle );
$Transportation::bicycle_with_comfy_new_saddle->lock;
go( target => $Locations::work>office, -method => $Transportation::feet );
work while(not $Time::lunchtime);
go( target => $Locations::work>sandwich_van, -method => $Transportation::feet );
buy( $Sandwiches::baguette->with_filling(”Stilton and Bacon”) );
go( target => $Locations::work>office, -method => $Transportation::feet );
eat( $Meal::lunch );
work while(not $Time::hometime);
go( target => $Locations::milton>roads{winship}, -method => $Transportation::bicycle_with_comfy_new_saddle );
break( $Object::Bicycle::comfy_new_saddle );
telephone( $Relative::dad, ask_for_help );
Who said I’m not obsessed with Perl? And no, I’m not continuing this any more, I have better things to do than to attempt to describe dinner in Perl syntax.
And no, I don’t have a set of modules that will let you compile this.