Catalyst::Model::Adaptor - use a plain class as a Catalyst model è¦ã¯ã©ããªã¯ã©ã¹ã§ãCatalystã®ã¢ãã«ã«ãã¦ãããã¯ã©ã¹ã§ãã ãã¨ãã°ãããªã¯ã©ã¹ãä½ã£ã¦ lib/MyApp/DateTime.pm package MyApp::DateTime; use strict; use warnings; use base qw/DateTime/; use DateTime::Format::W3CDTF; sub now { my ($class, $args) = @_; $args->{time_zone} = 'local' unless $args->{time_zone}; return $class->SUPER::now(%$args); } sub parse { my ( $class, $str )
{{#tags}}- {{label}}
{{/tags}}