Mercurial > pub > Impl
changeset 282:68d905f8dc43
*IMPL::SQL fixed warnings
author | cin |
---|---|
date | Tue, 12 Feb 2013 01:24:36 +0400 |
parents | a8dbddf491dd |
children | 2f06250bab5f |
files | Lib/IMPL/SQL/Schema/Column.pm Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm Lib/IMPL/TargetException.pm |
diffstat | 3 files changed, 4 insertions(+), 4 deletions(-) [+] |
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});
--- a/Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm Mon Feb 11 00:58:22 2013 +0400 +++ b/Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm Tue Feb 12 01:24:36 2013 +0400 @@ -54,8 +54,8 @@ sub SameValue { my ($this,$other) = @_; - uc $this->onDelete eq uc $other->onDelete or return 0; - uc $this->onUpdate eq uc $other->onUpdate or return 0; + uc($this->onDelete || '') eq uc($other->onDelete || '')or return 0; + uc($this->onUpdate || '') eq uc($other->onUpdate || '') or return 0; return $this->SUPER::SameValue($other); }
--- a/Lib/IMPL/TargetException.pm Mon Feb 11 00:58:22 2013 +0400 +++ b/Lib/IMPL/TargetException.pm Tue Feb 12 01:24:36 2013 +0400 @@ -18,7 +18,7 @@ } use IMPL::Resources::Strings { - messageFormat => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n" + message => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n" }; 1; \ No newline at end of file