[Rt-commit] r5589 - in Object-Declare: t

[audreyt at bestpractical.com]

Author: audreyt
Date: Mon Jul 17 19:31:18 2006
New Revision: 5589

Modified:
   Object-Declare/lib/Object/Declare.pm
   Object-Declare/t/01-basic.t

Log:
* remove redundant quoting from docs

Modified: Object-Declare/lib/Object/Declare.pm
==============================================================================
--- Object-Declare/lib/Object/Declare.pm	(original)
+++ Object-Declare/lib/Object/Declare.pm	Mon Jul 17 19:31:18 2006
@@ -116,10 +116,10 @@
     use Object::Declare ['MyApp::Column', 'MyApp::Param'];
 
     my $objects = declare {
-        param 'foo' =>
+        param foo =>
             is immutable,
             valid_values are qw( more values );
-        column 'bar' =>
+        column bar =>
             field1 is 'value',
             field2 is 'some_other_value';
     };

Modified: Object-Declare/t/01-basic.t
==============================================================================
--- Object-Declare/t/01-basic.t	(original)
+++ Object-Declare/t/01-basic.t	Mon Jul 17 19:31:18 2006
@@ -6,24 +6,24 @@
 
 my $objects = declare {
 
-column 'x' =>
+column x =>
     field1 is 'xxx',
     field2 is 'XXX',
     is field3;
 
-column 'y' =>
+column y =>
     field1 is 'yyy',
     field2 is 'YYY';
 
 };
 
 is_deeply($objects => {
-    'x' => {
+    x => {
             'field1' => 'xxx',
             'field2' => 'XXX',
             'field3' => 1
             },
-    'y' => {
+    y => {
             'field1' => 'yyy',
             'field2' => 'YYY'
             },