X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FInflateColumn%2FDateTime.pm;h=7e50807719f32cf6f2bc9c997f00b1d63cebe4c3;hb=65b386dfedd73d8b6e98d2f52039280fc63a8e7d;hp=30530357c52205b4cf1b6605d1e0e652b724f034;hpb=abc914bdc9b48f7295ed1d27380f0b14c971db1c;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/InflateColumn/DateTime.pm b/lib/DBIx/Class/InflateColumn/DateTime.pm index 3053035..7e50807 100644 --- a/lib/DBIx/Class/InflateColumn/DateTime.pm +++ b/lib/DBIx/Class/InflateColumn/DateTime.pm @@ -3,6 +3,7 @@ package DBIx::Class::InflateColumn::DateTime; use strict; use warnings; use base qw/DBIx::Class/; +use Carp::Clan qw/^DBIx::Class/; =head1 NAME @@ -39,17 +40,26 @@ use inflate_datetime or inflate_date: __PACKAGE__->add_columns( starts_when => { data_type => 'varchar', inflate_datetime => 1 } ); - + __PACKAGE__->add_columns( starts_when => { data_type => 'varchar', inflate_date => 1 } ); It's also possible to explicitly skip inflation: - + __PACKAGE__->add_columns( starts_when => { data_type => 'datetime', inflate_datetime => 0 } ); +NOTE: Don't rely on C to parse date strings for you. +The column is set directly for any non-references and C +is completely bypassed. Instead, use an input parser to create a DateTime +object. For instance, if your user input comes as a 'YYYY-MM-DD' string, you can +use C thusly: + + use DateTime::Format::ISO8601; + my $dt = DateTime::Format::ISO8601->parse_datetime('YYYY-MM-DD'); + =head1 DESCRIPTION This module figures out the type of DateTime::Format::* class to @@ -76,7 +86,7 @@ directly called by end users. In the case of an invalid date, L will throw an exception. To bypass these exceptions and just have the inflation return undef, use the C option in the column info: - + "broken_date", { data_type => "datetime", @@ -106,85 +116,101 @@ sub register_column { unless ($type) { $type = lc($info->{data_type}); + if ($type eq "timestamp with time zone" || $type eq "timestamptz") { + $type = "timestamp"; + $info->{_ic_dt_method} ||= "timestamp_with_timezone"; + } elsif ($type eq "timestamp without time zone") { + $type = "timestamp"; + $info->{_ic_dt_method} ||= "timestamp_without_timezone"; + } elsif ($type eq "smalldatetime") { + $type = "datetime"; + $info->{_ic_dt_method} ||= "datetime"; + } } my $timezone; if ( defined $info->{extra}{timezone} ) { - warn "Putting timezone into extra => { timezone => '...' } has been deprecated, ". - "please put it directly into the columns definition."; + carp "Putting timezone into extra => { timezone => '...' } has been deprecated, ". + "please put it directly into the '$column' column definition."; $timezone = $info->{extra}{timezone}; } my $locale; if ( defined $info->{extra}{locale} ) { - warn "Putting locale into extra => { locale => '...' } has been deprecated, ". - "please put it directly into the columns definition."; + carp "Putting locale into extra => { locale => '...' } has been deprecated, ". + "please put it directly into the '$column' column definition."; $locale = $info->{extra}{locale}; } - + $locale = $info->{locale} if defined $info->{locale}; $timezone = $info->{timezone} if defined $info->{timezone}; my $undef_if_invalid = $info->{datetime_undef_if_invalid}; if ($type eq 'datetime' || $type eq 'date' || $type eq 'timestamp') { - my ($parse, $format) = ("parse_${type}", "format_${type}"); - - # This assignment must happen here, otherwise Devel::Cycle treats - # the resulting deflator as a circular reference (go figure): - # - # Cycle #1 - # DBICTest::Schema A->{source_registrations} => %B - # %B->{Event} => DBIx::Class::ResultSource::Table C - # DBIx::Class::ResultSource::Table C->{_columns} => %D - # %D->{created_on} => %E - # %E->{_inflate_info} => %F - # %F->{deflate} => &G - # closure &G, $info => $H - # $H => %E - # - my $floating_tz_ok; + # This shallow copy of %info avoids t/52_cycle.t treating + # the resulting deflator as a circular reference. + my %info = ( '_ic_dt_method' => $type , %{ $info } ); + if (defined $info->{extra}{floating_tz_ok}) { - warn "Putting floating_tz_ok into extra => { floating_tz_ok => 1 } has been deprecated, ". - "please put it directly into the columns definition."; - $floating_tz_ok = $info->{extra}{floating_tz_ok}; + carp "Putting floating_tz_ok into extra => { floating_tz_ok => 1 } has been deprecated, ". + "please put it directly into the '$column' column definition."; + $info{floating_tz_ok} = $info->{extra}{floating_tz_ok}; } - $floating_tz_ok = $info->{floating_tz_ok} if defined $info->{floating_tz_ok}; $self->inflate_column( $column => { inflate => sub { my ($value, $obj) = @_; - my $parser = $obj->_datetime_parser; - my $parser_method = $parser->can($parse) ? $parse : "parse_datetime"; - my $dt = eval { $parser->$parser_method($value); }; - die "Error while inflating ${value} for ${column} on ${self}: $@" - if $@ and not $undef_if_invalid; + + my $dt = eval { $obj->_inflate_to_datetime( $value, \%info ) }; + if (my $err = $@ ) { + return undef if ($undef_if_invalid); + $self->throw_exception ("Error while inflating ${value} for ${column} on ${self}: $err"); + } + $dt->set_time_zone($timezone) if $timezone; $dt->set_locale($locale) if $locale; return $dt; }, deflate => sub { my ($value, $obj) = @_; - my $parser = $obj->_datetime_parser; - my $parser_method = $parser->can($format) ? $format : "format_datetime"; if ($timezone) { - warn "You're using a floating timezone, please see the documentation of" + carp "You're using a floating timezone, please see the documentation of" . " DBIx::Class::InflateColumn::DateTime for an explanation" if ref( $value->time_zone ) eq 'DateTime::TimeZone::Floating' - and not $floating_tz_ok + and not $info{floating_tz_ok} and not $ENV{DBIC_FLOATING_TZ_OK}; $value->set_time_zone($timezone); $value->set_locale($locale) if $locale; } - $parser->$parser_method($value); + $obj->_deflate_from_datetime( $value, \%info ); }, } ); } } +sub _flate_or_fallback +{ + my( $self, $value, $info, $method_fmt ) = @_; + + my $parser = $self->_datetime_parser; + my $preferred_method = sprintf($method_fmt, $info->{ _ic_dt_method }); + my $method = $parser->can($preferred_method) ? $preferred_method : sprintf($method_fmt, 'datetime'); + return $parser->$method($value); +} + +sub _inflate_to_datetime { + my( $self, $value, $info ) = @_; + return $self->_flate_or_fallback( $value, $info, 'parse_%s' ); +} + +sub _deflate_from_datetime { + my( $self, $value, $info ) = @_; + return $self->_flate_or_fallback( $value, $info, 'format_%s' ); +} sub _datetime_parser { my $self = shift; @@ -200,7 +226,7 @@ __END__ =head1 USAGE NOTES -If you have a datetime column with the C extra setting, and subsenquently +If you have a datetime column with an associated C, and subsequently create/update this column with a DateTime object in the L timezone, you will get a warning (as there is a very good chance this will not have the result you expect). For example: