App-Context
view release on metacpan or search on metacpan
lib/App/Context.pm view on Meta::CPAN
}
}
if ($new_service) {
$self->dbgprint("Context->service() new service [$name]")
if ($App::DEBUG && $self->dbg(3));
if (!$temporary && defined $service->{default}) {
$default = $service->{default};
if ($default =~ /^\{today\}\+?(-?[0-9]+)?$/) {
$default = time2str("%Y-%m-%d",time + 2*3600 + ($1 ? ($1*3600*24) : 0));
}
if (defined $default) {
$self->so_get($name, "", $default, 1);
$self->so_delete($name, "default");
}
}
$class = $service->{class}; # find class of service
if (!defined $class || $class eq "") {
lib/App/datetime.pod view on Meta::CPAN
* Moderate support on Win32 platform.
=head2 Time::Piece [Time::Object, Time::Seconds]
http://search.cpan.org/search?module=Time::Object
On the perl5-porters mailing
Larry Wall described some thoughts on how dates and times might become part
of the Perl language and sketched out an object-oriented interface.
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2000-01/msg00241.html
This interface was implemented in the Time::Piece package.
* OO interface
* No explicit support for parsing dates.
* Flexible formatting using POSIX strftime() format specifiers.
* Limited internationalization support.
* Limited date math support.
* Unknown support for dates outside [1970-2038]
* Unsupported on Win32 platform.
( run in 0.468 second using v1.01-cache-2.11-cpan-7add2cbd662 )