comparison scan.pl @ 265:aaffc50e3318

try to handle db_error
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 25 Nov 2008 20:15:26 +0800
parents 3b3f1306255a
children 15c288dd7dc5
comparison
equal deleted inserted replaced
264:3b3f1306255a 265:aaffc50e3318
21 my $self = { 21 my $self = {
22 ikariam => $i, 22 ikariam => $i,
23 }; 23 };
24 24
25 return bless $self, $class; 25 return bless $self, $class;
26 }
27
28 sub _croak {
29 my ($self, $message, %info) = @_;
30 Error->throw(-text => $message, %info);
31 return;
32 } 26 }
33 27
34 sub saveCities 28 sub saveCities
35 { 29 {
36 my ($self, $island, @cities) = @_; 30 my ($self, $island, @cities) = @_;