| ... | ... |
@@ -1,4 +1,6 @@ |
| 1 | 1 |
0.1745 |
| 2 |
+ - show_datatype method return lower case string |
|
| 3 |
+ - show_typename method return lower case string |
|
| 2 | 4 |
- DBIx::Custom::Result filter_on method is DEPRECATED! |
| 3 | 5 |
- DBIx::Custom::Result filter_off method is DEPRECATED! |
| 4 | 6 |
0.1744 |
| ... | ... |
@@ -1000,7 +1000,7 @@ sub show_datatype {
|
| 1000 | 1000 |
|
| 1001 | 1001 |
for (my $i = 0; $i < @$columns; $i++) {
|
| 1002 | 1002 |
my $column = $columns->[$i]; |
| 1003 |
- my $data_type = $data_types->[$i]; |
|
| 1003 |
+ my $data_type = lc $data_types->[$i]; |
|
| 1004 | 1004 |
print "$column: $data_type\n"; |
| 1005 | 1005 |
} |
| 1006 | 1006 |
} |
| ... | ... |
@@ -1013,7 +1013,7 @@ sub show_typename {
|
| 1013 | 1013 |
$self->each_column(sub {
|
| 1014 | 1014 |
my ($self, $table, $column, $infos) = @_; |
| 1015 | 1015 |
return unless $table eq $t; |
| 1016 |
- my $typename = $infos->{TYPE_NAME};
|
|
| 1016 |
+ my $typename = lc $infos->{TYPE_NAME};
|
|
| 1017 | 1017 |
print "$column: $typename\n"; |
| 1018 | 1018 |
}); |
| 1019 | 1019 |
|