Yet Another CPAN Grep

Mail-RoundTrip ( E/EI/EINHVERFR/Mail-RoundTrip-0.02.tar.gz, EINHVERFR, 2013; MetaCPAN )

Mail-RoundTrip/lib/Mail/RoundTrip.pm ( view source; MetaCPAN )

package Mail::RoundTrip;

use 5.006;
use strict;
use warnings;
use Moo;
use JSON;
use UUID::Tiny qw(:std);
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Fi

ling slashes
    my $filename = $self->code;
    my $json = encode_json($self->data);
    write_file("$spooldir/$filename", {no_clobber => 1}, $json);
}
    

=head2 get_data(code => $code, spool_dir

slashes
    my $filename = $args{code};
    my $json = read_file("$spooldir/$filename");
    unlink("$spooldir/$filename");
    return decode_json($json);
}   


=head1 AUTHOR

Chris Travers, C<< <chr