in reply to Re^4: What to test in a new module
in thread What to test in a new module

Also: 

my $signed_payload = join '.', $sig_head{'t'}, $self->{'payload'};

[download]

In Section Seekers of Perl Wisdom