diff Lib/IMPL/SQL/Schema/Column.pm @ 282:68d905f8dc43

*IMPL::SQL fixed warnings
author cin
date Tue, 12 Feb 2013 01:24:36 +0400
parents 4ddb27ff4a0b
children 77df11605d3a
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Column.pm	Mon Feb 11 00:58:22 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Column.pm	Tue Feb 12 01:24:36 2013 +0400
@@ -24,7 +24,7 @@
     $this->{$name} or
         die new IMPL::InvalidArgumentException('A column name is required');
     
-    $this->{$isNullable} = 0 if not exists $this->{$isNullable};
+    $this->{$isNullable} ||= 0; # if not exists $this->{$isNullable};
     
     is( $this->{$type}, typeof IMPL::SQL::Schema::Type) or
         die new IMPL::InvalidArgumentException('a type is required for the column',$this->{$name});