use 'use' instead of dynamic 'require', may affect performance a bit, but ignorable
rectool/trunk/rectool.pl (diff)| @@ -9,6 +9,7 @@ | ||
| 9 | 9 | #use SVG; |
| 10 | 10 | #use KCatch; |
| 11 | 11 | use warnings; |
| 12 | +use utf8; | |
| 12 | 13 | use Algorithm::Diff qw(LCS); |
| 13 | 14 | use Archive::Zip; |
| 14 | 15 | use CGI; |
| @@ -18,17 +19,21 @@ | ||
| 18 | 19 | use Date::Simple; |
| 19 | 20 | use DateTime; |
| 20 | 21 | use DBI; |
| 22 | +use Encode; | |
| 21 | 23 | use File::Slurp; |
| 24 | +use List::Compare; | |
| 25 | +use List::Util; | |
| 22 | 26 | use MIME::Base64; |
| 23 | 27 | use Sort::Naturally; |
| 28 | +use SVG; | |
| 24 | 29 | use Time::Piece; |
| 25 | 30 | use Time::Seconds; |
| 31 | +use Time::Simple; | |
| 26 | 32 | use Time::HiRes; |
| 27 | 33 | use Tie::IxHash; |
| 34 | +use XML::Atom; | |
| 28 | 35 | use XML::Generator::DBI; |
| 29 | 36 | use XML::SAX::Writer; |
| 30 | -#require SVG Time::Simple XML::Atom Encode List::Compare List::Util | |
| 31 | -use utf8; | |
| 32 | 37 | #%DB::packages = ( 'main' => 1 ); |
| 33 | 38 | |
| 34 | 39 |
Fork