| ... | ... |
@@ -1,4 +1,5 @@ |
| 1 | 1 |
0.1692 |
| 2 |
+ - added EXPERIMENTAL available_type_name method |
|
| 2 | 3 |
- EXPERIMENTAL type_rule_off is not passed form execute method |
| 3 | 4 |
to DBIx::Custom::Result object |
| 4 | 5 |
0.1691 |
| ... | ... |
@@ -964,6 +964,21 @@ sub available_data_type {
|
| 964 | 964 |
return $data_types; |
| 965 | 965 |
} |
| 966 | 966 |
|
| 967 |
+sub available_type_name {
|
|
| 968 |
+ my $self = shift; |
|
| 969 |
+ |
|
| 970 |
+ # Type Names |
|
| 971 |
+ my $type_names = {};
|
|
| 972 |
+ $self->each_column(sub {
|
|
| 973 |
+ my ($self, $table, $column, $column_info) = @_; |
|
| 974 |
+ $type_names->{$column_info->{TYPE_NAME}} = 1
|
|
| 975 |
+ if $column_info->{TYPE_NAME};
|
|
| 976 |
+ }); |
|
| 977 |
+ my @output = sort keys %$type_names; |
|
| 978 |
+ unshift @output, "Type Name"; |
|
| 979 |
+ return join "\n", @output; |
|
| 980 |
+} |
|
| 981 |
+ |
|
| 967 | 982 |
sub type_rule {
|
| 968 | 983 |
my $self = shift; |
| 969 | 984 |
|
| ... | ... |
@@ -1905,7 +1920,15 @@ and implements the following new ones. |
| 1905 | 1920 |
|
| 1906 | 1921 |
print $dbi->available_data_type; |
| 1907 | 1922 |
|
| 1908 |
-Get available data type. |
|
| 1923 |
+Get available data types. You can use these data types |
|
| 1924 |
+in C<type rule>'s C<from> section. |
|
| 1925 |
+ |
|
| 1926 |
+=head2 C<available_type_name> EXPERIMENTAL |
|
| 1927 |
+ |
|
| 1928 |
+ print $dbi->available_type_name; |
|
| 1929 |
+ |
|
| 1930 |
+Get available type names. You can use these type names in |
|
| 1931 |
+C<type_rule>'s C<into> section. |
|
| 1909 | 1932 |
|
| 1910 | 1933 |
=head2 C<assign_param> EXPERIMENTAL |
| 1911 | 1934 |
|