Mercurial > eagle-eye
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) = @_; |