Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Box	[ DIR ]	drwxr-xr-x
Field	[ DIR ]	drwxr-xr-x
IMAPClient	[ DIR ]	drwxr-xr-x
Mailer	[ DIR ]	drwxr-xr-x
Message	[ DIR ]	drwxr-xr-x
Sender	[ DIR ]	drwxr-xr-x
Transport	[ DIR ]	drwxr-xr-x
Address.pm	6.84 KB	-rw-r--r--
Address.pod	4.07 KB	-rw-r--r--
Box-Cookbook.pod	9.57 KB	-rw-r--r--
Box-Index.pod	9.18 KB	-rw-r--r--
Box-Overview.pod	13.74 KB	-rw-r--r--
Box.pm	20.58 KB	-rw-r--r--
Box.pod	51.29 KB	-rw-r--r--
Cap.pm	6.42 KB	-rw-r--r--
Cap.pod	3.78 KB	-rw-r--r--
Field.pm	4.94 KB	-rw-r--r--
Field.pod	4.91 KB	-rw-r--r--
Filter.pm	1.44 KB	-rw-r--r--
Filter.pod	2.82 KB	-rw-r--r--
Header.pm	13.82 KB	-rw-r--r--
Header.pod	7.76 KB	-rw-r--r--
IMAPClient.pm	103.52 KB	-rw-r--r--
IMAPClient.pod	138.97 KB	-rw-r--r--
Identity.pm	4.09 KB	-rw-r--r--
Identity.pod	8.59 KB	-rw-r--r--
Internet.pm	12.26 KB	-rw-r--r--
Internet.pod	10.24 KB	-rw-r--r--
Mailer.pm	4.94 KB	-rw-r--r--
Mailer.pod	4.1 KB	-rw-r--r--
Message.pm	15.83 KB	-rw-r--r--
Message.pod	44.71 KB	-rw-r--r--
POP3Client.pm	41.92 KB	-rw-r--r--
Reporter.pm	5.57 KB	-rw-r--r--
Reporter.pod	9.72 KB	-rw-r--r--
Send.pm	1.35 KB	-rw-r--r--
Send.pod	3.17 KB	-rw-r--r--
Sender.pm	100.94 KB	-rw-r--r--
Sendmail.pm	32.64 KB	-rw-r--r--
Server.pm	510 B	-rw-r--r--
Server.pod	1.51 KB	-rw-r--r--
Transport.pm	2.8 KB	-rw-r--r--
Transport.pod	7.18 KB	-rw-r--r--
Util.pm	3.36 KB	-rw-r--r--
Util.pod	3.09 KB	-rw-r--r--

Code Editor : Identity.pm

# Copyrights 2003-2022 by [Mark Overmeer <markov@cpan.org>].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.03.
# This code is part of distribution User-Identity.  Meta-POD processed with
# OODoc into POD and HTML manual-pages.  See README.md
# Copyright Mark Overmeer.  Licensed under the same terms as Perl itself.

package Mail::Identity;
use vars '$VERSION';
$VERSION = '1.01';

use base 'User::Identity::Item';

use strict;
use warnings;

use User::Identity;
use Scalar::Util 'weaken';

sub type() { "email" }

sub init($)
{   my ($self, $args) = @_;

$args->{name} ||= '-x-';

$self->SUPER::init($args);

exists $args->{$_} && ($self->{'MI_'.$_} = delete $args->{$_})
        foreach qw/address charset comment domain language
                   location organization pgp_key phrase signature
                   username/;

$self->{UII_name} = $self->phrase || $self->address
      if $self->{UII_name} eq '-x-';

$self;
}

sub from($)
{   my ($class, $other) = (shift, shift);
    return $other if $other->isa(__PACKAGE__);

if($other->isa('Mail::Address'))
    {   # Mail::Address is far to lazy
        return $class->parse($other->format);
    }

if($other->isa('User::Identity'))
    {   my $emails = $other->collection('emails') or next;
        my @roles  = $emails->roles or return ();
        return $roles[0];      # first Mail::Identity
    }

undef;
}

sub comment($)
{   my $self = shift;
    return $self->{MI_comment} = shift if @_;
    return $self->{MI_comment} if defined $self->{MI_comment};

my $user = $self->user     or return undef;
    my $full = $user->fullName or return undef;
    $self->phrase eq $full ? undef : $full;
}

sub charset()
{   my $self = shift;
    return $self->{MI_charset} if defined $self->{MI_charset};

my $user = $self->user     or return undef;
    $user->charset;
}

sub language()
{   my $self = shift;
   
    return $self->{MI_language} if defined $self->{MI_language};

my $user = $self->user     or return undef;
    $user->language;
}

sub domain()
{   my $self = shift;
    return $self->{MI_domain}
        if defined $self->{MI_domain};

my $address = $self->{MI_address} or return 'localhost';
    $address =~ s/.*?\@// ? $address : undef;
}

sub address()
{   my $self = shift;
    return $self->{MI_address} if defined $self->{MI_address};

if(my $username = $self->username)
    {   if(my $domain = $self->domain)
        {   if($username =~ /[^a-zA-Z0-9!#\$%&'*+\-\/=?^_`{|}~.]/)
            {   # When the local part does contain a different character
                # than an atext or dot, make it quoted-string
                $username =~ s/"/\\"/g;
                $username = qq{"$username"};
            }
            return "$username\@$domain";
        }
    }

my $name = $self->name;
    return $name if index($name, '@') >= 0;

my $user = $self->user;
    defined $user ? $user->nickname : $name;
}

sub location()
{   my $self      = shift;
    my $location  = $self->{MI_location};

if(! defined $location)
    {   my $user  = $self->user or return;
        my @locs  = $user->collection('locations');
        $location =  @locs ? $locs[0] : undef;
    }
    elsif(! ref $location)
    {   my $user  = $self->user or return;
        $location = $user->find(location => $location);
    }

$location;
}

sub organization()
{   my $self = shift;

return $self->{MI_organization} if defined $self->{MI_organization};

my $location = $self->location or return;
    $location->organization;
}

#pgp_key

sub phrase()
{  my $self = shift;
    return $self->{MI_phrase} if defined $self->{MI_phrase};
    my $user = $self->user     or return undef;
    my $full = $user->fullName or return undef;
    $full;
}

#signature

sub username()
{   my $self = shift;
    return $self->{MI_username} if defined $self->{MI_username};
 
    if(my $address = $self->{MI_address})
    {   $address =~ s/\@.*$//;   # strip domain part if present
        return $address;
    }

my $user = $self->user or return;
    $user->nickname;
}

${this.title}

Code Editor : Identity.pm