File Coverage

blib/lib/Mail/URLFor/Plugin/RFC2392.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	34	35	97.1

package Mail::URLFor::Plugin::RFC2392;
use strict;
use Moo 2;
use Filter::signatures;
no warnings 'experimental::signatures';
use feature 'signatures';

use URI;
use URI::mid;

=head1 NAME

Mail::URLFor::Plugin::RFC2392 - deep links to mails for RFC2392

=head1 SYNOPSIS

    my $r = Mail::URLFor::Plugin::RFC2392->new();
    my $url = $r->render('[e-mail]');
    print "See mail";

=cut

our $VERSION = '0.02';

sub render($self, $rfc882messageid ) {
    return URI->new( $rfc882messageid, 'mid:' )
}

has 'moniker' => (
    is => 'ro',
    default => sub {
        __PACKAGE__ =~ /.*::(\w+)$/;
        $1
    },
);

1;

__END__