File Coverage

blib/lib/Net/Social/Mapper/Persona/Email.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	23	25	92.0

package Net::Social::Mapper::Persona::Email;

use strict;
use base qw(Net::Social::Mapper::Persona);
use Email::Address;

=head1 NAME

Net::Social::Mapper::Persona::Email - the persona for an email address

=head2 SYNOPSIS

See C

=cut
sub _init {
    my $self           = shift;
    $self->{service}   = 'email';
    $self->{name}      = 'Email';
    my ($address)      = Email::Address->parse($self->{user});
    $self->{full_name} = $address->name; # might as well try
    $self->{domain}    = $address->host;
    $self->{id}        = $address->user;
    $self->{user}      = $address->address;
    return $self;
}

=head2 persona_name

The short canonical name for this persona

=cut
sub persona_name { shift->_do('user', @_) }
1;