Changeset 455 for lang/perl/Gopper

Timestamp:

10/11/07 16:17:39 (6 years ago)

Author:

yappo

Message:

lang/javascript/userscripts/hatebuclippingsiteremover.user.js: add clipping site
lang/perl/Gopper/trunk/lib/Gopper: add example plugin

Location:

lang/perl/Gopper/trunk

Files:

• gopper.pl (modified) (2 diffs)
• lib/Gopper/Plugin/Method (added)
• lib/Gopper/Plugin/Method/ConfigDump.pm (added)

lang/perl/Gopper/trunk/gopper.pl

@@ -10 +10 @@
 use lib file( $FindBin::RealBin, 'lib' )->stringify;
 use Gopper;
+Gopper->load_plugins(qw/ Method::ConfigDump /);
 
 sub stdio_close {
@@ -32 +33 @@
 
 sub start {
-    Gopper->new(config => shift)->run;
+    my $gopper = Gopper->new(config => shift);
+    $gopper->call('config_dump');
+    $gopper->run;
 }