Changeset 796

Timestamp:

05/23/06 21:21:06

Author:

miyagawa

Message:

Regression test suite for MIME::Lite chomping issue.

Files:

• trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm (modified) (1 diff)
• trunk/plagger/lib/Plagger/TT/Plagger/Util.pm (modified) (1 diff)
• trunk/plagger/t/regression/mime-lite-chop.t (added)

trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm

@@ -22 +22 @@
-        'publish.feed' => \&notify,
-    );
+}
+
+sub init {
+    my $self = shift;
+    $self->SUPER::init(@_);
+
+    $self->conf->{mailto} or Plagger->context->error("mailto is required");
+    $self->conf->{mailfrom} ||= 'plagger@localhost';
-}
-

trunk/plagger/lib/Plagger/TT/Plagger/Util.pm

@@ -10 +10 @@
-    bless {}, shift;
-}
+
+sub DESTROY { }
-
-sub AUTOLOAD {