Move display.pl into an FSpot module and start the framework for more modules.
[picture-display.git] / picture.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use FindBin;
5 use Module::Pluggable search_path => ['Display::Plugins'];
6
7 use lib "$FindBin::Bin/lib";
8
9 my @modules = loadModules();
10
11 for my $module (@modules) {
12   print $module->display() . "\n";
13 }
14
15 sub loadModules {
16   my @modules;
17
18   for my $module (plugins()) {
19   warn "Considering $module\n";
20     eval "use $module";
21     if ($@) {
22       die "Failed to load plugin: $module ($@)\n";
23     }
24
25     push @modules, $module->new();
26   }
27
28   return @modules;
29
30