File Coverage

blib/lib/Mail/STS/SSKV.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	2	0.0
total	15	17	88.2

package Mail::STS::SSKV;

use Moose::Role;

our $VERSION = '0.04'; # VERSION
# ABSTRACT: role for semicolon-separated key/value pairs

requires 'fields';

sub new_from_string {
  my ($class, $string) = @_;
  my %kv = map { split(/=/,$_,2) } split(/\s*;\s*/, $string);
  return $class->new(%kv);
}

sub as_string {
  my $self = shift;
  return join(' ',
    map { $_."=".$self->$_.";" } grep { defined $self->$_ } @{$self->fields}
  );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::STS::SSKV - role for semicolon-separated key/value pairs

=head1 VERSION

version 0.04

=head1 AUTHOR

Markus Benning <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Markus Benning <[e-mail]>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut