diff options
author | Eric Wong <e@yhbt.net> | 2020-05-07 21:05:44 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-05-09 08:59:10 +0000 |
commit | 8d1b87f498ea47bb752ea24900372df192d322fb (patch) | |
tree | 3d14a85ee2e353544e5d2a7cd59c0e071065bf76 /lib/PublicInbox/MsgIter.pm | |
parent | dc7dc9ef49e3d396d2b47fa2befd1718aff45f0d (diff) | |
download | public-inbox-8d1b87f498ea47bb752ea24900372df192d322fb.tar.gz |
msg_iter: make ->each_part method for PublicInbox::MIME
The reliance on Email::MIME->subparts is a tad inefficient with a work-in-progress module to replace Email::MIME. So move towards using ->each_part as a class-specific iterator which can take advantage of more class-specific optimizations in the yet-to-be-revealed PublicInbox::Eml and PublicInbox::Gmime classes. The msg_iter() sub remains for compatibility with existing 3rd-party scripts/modules which use our small public Perl API and Email::MIME.
Diffstat (limited to 'lib/PublicInbox/MsgIter.pm')
-rw-r--r-- | lib/PublicInbox/MsgIter.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lib/PublicInbox/MsgIter.pm b/lib/PublicInbox/MsgIter.pm index fa25564a..cd5a5d99 100644 --- a/lib/PublicInbox/MsgIter.pm +++ b/lib/PublicInbox/MsgIter.pm @@ -7,12 +7,12 @@ use strict; use warnings; use base qw(Exporter); our @EXPORT = qw(msg_iter msg_part_text); -use PublicInbox::MIME; +# This becomes PublicInbox::MIME->each_part: # Like Email::MIME::walk_parts, but this is: # * non-recursive # * passes depth and indices to the iterator callback -sub msg_iter ($$;$$) { +sub em_each_part ($$;$$) { my ($mime, $cb, $cb_arg, $do_undef) = @_; my @parts = $mime->subparts; if (@parts) { @@ -36,6 +36,17 @@ sub msg_iter ($$;$$) { } } +# Use this when we may accept Email::MIME from user scripts +# (not just PublicInbox::MIME) +sub msg_iter ($$;$$) { # $_[0] = PublicInbox::MIME/Email::MIME-like obj + my (undef, $cb, $cb_arg, $once) = @_; + if (my $ep = $_[0]->can('each_part')) { # PublicInbox::{MIME,*} + $ep->($_[0], $cb, $cb_arg, $once); + } else { # for compatibility with existing Email::MIME users: + em_each_part($_[0], $cb, $cb_arg, $once); + } +} + sub msg_part_text ($$) { my ($part, $ct) = @_; |