File Coverage

blib/lib/OS/Package/Maintainer.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	33	51.5

use v5.14.0;
use warnings;

package OS::Package::Maintainer;

# ABSTRACT: OS::Package::Maintainer object.
our $VERSION = '0.2.6'; # VERSION

use Moo;
use Types::Standard qw( Str Enum );

has author => ( is => 'rw', isa => Str, required => 1 );

has company => (
    is      => 'rw',
    isa     => Str,
    default => sub { my $self = shift; return $self->author }
);

has [qw/nickname email phone/] => ( is => 'rw', isa => Str );

sub by_line {
    my $self = shift;

    my $by_line = $self->author;

    if ( defined $self->nickname ) {
        $by_line .= sprintf ' (%s)', $self->nickname;
    }

    if ( defined $self->email ) {
        $by_line .= sprintf ' <%s>', $self->email;
    }

    if ( defined $self->phone ) {
        $by_line .= sprintf ' %s', $self->phone;
    }

    return $by_line;

}

1;

__END__