Data::Dumper for Mail::Message object

1 files changed, 18 insertions, 0 deletions

diff --git a/regress/message/dump.pl b/regress/message/dump.pl
new file mode 100755
index 00000000..5bf66a3d
--- /dev/null
+++ b/regress/message/dump.pl
@@ -0,0 +1,18 @@
+#!/usr/pkg/bin/perl
+#
+# $FML$
+#
+
+use lib qw(../../fml/lib ../../cpan/lib ../../im/lib);
+
+use FileHandle;
+use Mail::Message;
+
+my $f   = shift @ARGV;
+my $fh  = new FileHandle $f;
+my $wh  = new FileHandle "> $tmp";
+my $obj = Mail::Message->parse( { fd => $fh } );
+
+use Data::Dumper;
+
+print Dumper( $obj );