changed DateTime type constant to DateTimeObject
edenc [Fri, 15 Feb 2008 21:30:25 +0000 (21:30 +0000)]
lib/Reaction/Types/DateTime.pm
lib/Reaction/UI/ViewPort/Action.pm
lib/Reaction/UI/ViewPort/Collection/Grid/Member.pm
lib/Reaction/UI/ViewPort/Field/DateTime.pm
lib/Reaction/UI/ViewPort/Object.pm
t/lib/RTest/TestDB/Bar.pm

index d6294d2..ef944cc 100644 (file)
@@ -1,12 +1,12 @@
 package Reaction::Types::DateTime;
 
 use MooseX::Types
-    -declare => [qw/DateTime SpanSet TimeRangeCollection/];
+    -declare => [qw/DateTimeObject SpanSet TimeRangeCollection/];
 
 use MooseX::Types::Moose qw/Object ArrayRef/;
 use DateTime;
 
-subtype DateTime,
+subtype DateTimeObject,
   as Object,
   where { $_->isa('DateTime') },
   message { "Must be of the form YYYY-MM-DD HH:MM:SS" };
index 1e92025..5e4b0f0 100644 (file)
@@ -164,7 +164,7 @@ class Action is Object, which {
     $self->_build_simple_field(attribute => $attr, class => Password, %$args);
   };
 
-  implements _build_fields_for_type_Reaction_Types_DateTime_DateTime => as {
+  implements _build_fields_for_type_Reaction_Types_DateTime_DateTimeObject => as {
     my ($self, $attr, $args) = @_;
     $self->_build_simple_field(attribute => $attr, class => DateTime, %$args);
   };
index aae25dd..8696faa 100644 (file)
@@ -32,7 +32,7 @@ class Member is 'Reaction::UI::ViewPort::Object', which {
     $_[0]->(@_[1,2], { layout => 'value/string', %{ $_[3] || {} } })
   };
 
-  around _build_fields_for_type_Reaction_Types_DateTime_DateTime => sub {
+  around _build_fields_for_type_Reaction_Types_DateTime_DateTimeObject => sub {
     $_[0]->(@_[1,2], { layout => 'value/date_time', %{ $_[3] || {} } })
   };
 
index 50d26cf..4a932f2 100644 (file)
@@ -2,11 +2,11 @@ package Reaction::UI::ViewPort::Field::DateTime;
 
 use Scalar::Util 'blessed';
 use Reaction::Class;
-use Reaction::Types::DateTime;
+use Reaction::Types::DateTime 'DateTimeObject';
 use aliased 'Reaction::UI::ViewPort::Field';
 
 class DateTime is Field, which {
-  has '+value' => (isa => DateTime);
+  has '+value' => (isa => DateTimeObject);
 
   has value_string_default_format => (
     isa => 'Str', is => 'rw', required => 1, default => sub { "%F %H:%M:%S" }
index 4fa04d9..73facb9 100644 (file)
@@ -157,7 +157,7 @@ class Object is 'Reaction::UI::ViewPort', which {
     $self->_build_simple_field(attribute => $attr, class => String, %$args);
   };
 
-  implements _build_fields_for_type_Reaction_Types_DateTime_DateTime => as {
+  implements _build_fields_for_type_Reaction_Types_DateTime_DateTimeObject => as {
     my ($self, $attr, $args) = @_;
     $self->_build_simple_field(attribute => $attr, class => DateTime, %$args);
   };
index ab36958..d841696 100644 (file)
@@ -6,12 +6,12 @@ use DBIx::Class 0.07;
 use base qw/DBIx::Class Reaction::Object/;
 use Reaction::Class;
 use Reaction::Types::Core 'NonEmptySimpleStr';
-use Reaction::Types::DateTime 'DateTime';
+use Reaction::Types::DateTime 'DateTimeObject';
 use Reaction::Types::File 'File';
 
 has 'name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1);
 has 'foo' => (isa => 'RTest::TestDB::Foo', is => 'rw', required => 1);
-has 'published_at' => (isa => DateTime, is => 'rw');
+has 'published_at' => (isa => DateTimeObject, is => 'rw');
 has 'avatar' => (isa => File, is => 'rw');
 
 __PACKAGE__->load_components(qw/InflateColumn::DateTime Core/);