| … | |
… | |
| 1159 | my ($self, $type, %msg) = @_; |
1159 | my ($self, $type, %msg) = @_; |
| 1160 | |
1160 | |
| 1161 | $self->ns->ext_event ($type, %msg); |
1161 | $self->ns->ext_event ($type, %msg); |
| 1162 | } |
1162 | } |
| 1163 | |
1163 | |
| 1164 | package cf; |
1164 | =head3 cf::region |
|
|
1165 | |
|
|
1166 | =over 4 |
|
|
1167 | |
|
|
1168 | =cut |
|
|
1169 | |
|
|
1170 | package cf::region; |
|
|
1171 | |
|
|
1172 | =item cf::region::find_by_path $path |
|
|
1173 | |
|
|
1174 | Tries to decuce the probable region for a map knowing only its path. |
|
|
1175 | |
|
|
1176 | =cut |
|
|
1177 | |
|
|
1178 | sub find_by_path($) { |
|
|
1179 | my ($path) = @_; |
|
|
1180 | |
|
|
1181 | my ($match, $specificity); |
|
|
1182 | |
|
|
1183 | for my $region (list) { |
|
|
1184 | if ($region->match && $path =~ $region->match) { |
|
|
1185 | ($match, $specificity) = ($region, $region->specificity) |
|
|
1186 | if $region->specificity > $specificity; |
|
|
1187 | } |
|
|
1188 | } |
|
|
1189 | |
|
|
1190 | $match |
|
|
1191 | } |
| 1165 | |
1192 | |
| 1166 | =back |
1193 | =back |
| 1167 | |
|
|
| 1168 | |
1194 | |
| 1169 | =head3 cf::map |
1195 | =head3 cf::map |
| 1170 | |
1196 | |
| 1171 | =over 4 |
1197 | =over 4 |
| 1172 | |
1198 | |
| … | |
… | |
| 1403 | $self->load_header_orig |
1429 | $self->load_header_orig |
| 1404 | or return; |
1430 | or return; |
| 1405 | $self->prepare_orig; |
1431 | $self->prepare_orig; |
| 1406 | } |
1432 | } |
| 1407 | |
1433 | |
|
|
1434 | $self->default_region (cf::region::find_by_path $self->{path}) |
|
|
1435 | unless $self->default_region; |
|
|
1436 | |
| 1408 | 1 |
1437 | 1 |
| 1409 | } |
1438 | } |
| 1410 | |
1439 | |
| 1411 | sub find; |
1440 | sub find; |
| 1412 | sub find { |
1441 | sub find { |
