| Catalyst-Plugin-DateTime documentation | Contained in the Catalyst-Plugin-DateTime distribution. |
Catalyst::Plugin::DateTime - DateTime plugin for Catalyst.
# In your application class
use Catalyst qw/DateTime/;
# Use DateTime objects within your Catalyst app:
my $dt = $c->datetime(); # will return a DateTime object with local date and time
my $dt = $c->datetime(year => '2005', month => '01');
$c->datetime->mdy(); # returns current date in mdy format (i.e. 01/01/2006)
$c->dt(time_zone => 'Asia/Taipei'); # returns current date & time for argued time zone
Returns a DateTime object. If params are argued they will be passed to the
DateTime->new() method. Exceptions thrown by DateTime will be caught by
Catalyst::Exception.
If the argument list is empty, a DateTime object with the local date and time
obtained via DateTime->now() will be returned.
Uses time_zone => local as a default.
Alias to datetime.
This module's intention is to make the wonders of DateTime easily accesible within a Catalyst application via the Catalyst::Plugin interface.
It adds the methods datetime and dt to the Catalyst namespace.
James Kiser james.kiser@gmail.com
Copyright (c) 2006 the aforementioned author(s). All rights
reserved. This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
| Catalyst-Plugin-DateTime documentation | Contained in the Catalyst-Plugin-DateTime distribution. |
package Catalyst::Plugin::DateTime; use strict; use warnings; use Catalyst::Exception; use DateTime; our $VERSION = "0.03";
sub datetime { my $c = shift; my %params = @_; my $tz = delete $params{time_zone} || 'local'; # use params if argued if (%params) { return DateTime->new(\%params)->set_time_zone($tz); } else { # otherwise use now return DateTime->now(time_zone => $tz); } } # alias $c->dt *dt = \&datetime; 1;