}
###--------------------------------------------------------------------------
-### Image types.
-
-our %TYPE;
-
-package TrivGal::ImageType {
- sub new ($$) {
- my ($cls, $ext) = @_;
- return $TYPE{$ext} = bless { ext => $ext }, $cls;
- }
- sub ext ($) {
- my ($me, @args) = @_;
- return $me->{ext};
- }
- sub mimetype ($@) {
- my ($me, @args) = @_;
- return TrivGal::read_or_set $me, $me->{mimetype}, @args;
- }
- sub imlibfmt ($@) {
- my ($me, @args) = @_;
- return TrivGal::read_or_set $me, $me->{imlibfmt}, @args;
- }
-}
-
-TrivGal::ImageType->new(".jpg")->mimetype("image/jpeg")->imlibfmt("jpeg");
-TrivGal::ImageType->new(".png")->mimetype("image/png")->imlibfmt("png");
-
-###--------------------------------------------------------------------------
### Configuration.
export qw{$SCOPE $SUFFIX};
vast => 5400,
immense => 8100);
+export qw{%TYPE};
+our %TYPE = map { $_ => 1 } qw{.jpg .png};
+
export qw{init};
my $initp = 0;
sub init () {