Select Code to Download

$timeTO->getDate();
$timeTO->getTime();

package TimeBO;

...
sub getTimeTO { &{ $_[0] }("TIMETO"); }

1;

#!/usr/bin/perl

...

is( $timeTO->getDate() , $today->ymd(), "It's $today");
is( $timeTO->getTime() , $today->hms(), "It's $today");

package TimeTO;

...
sub getTime { &{ $_[0] }("TIME") }

1;

#!/usr/bin/perl

...

$timeTO->setTime( $today->hms() );
is( $timeTO->getTime(), $today->hms(), "it's $today");

#!/usr/bin/perl -wT

...
      $page->h1( "The current time is" ),
      $page->p( $timeTO->getTime() ),
      $page->end_html();