Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Complete.pm	11.15 KB	-rw-r--r--
Complete.pod	25.24 KB	-rw-r--r--
Delayed.pm	1.88 KB	-rw-r--r--
Delayed.pod	6.75 KB	-rw-r--r--
FieldGroup.pm	3.87 KB	-rw-r--r--
FieldGroup.pod	9.25 KB	-rw-r--r--
ListGroup.pm	7.58 KB	-rw-r--r--
ListGroup.pod	10.47 KB	-rw-r--r--
Partial.pm	2.69 KB	-rw-r--r--
Partial.pod	14.91 KB	-rw-r--r--
ResentGroup.pm	4.96 KB	-rw-r--r--
ResentGroup.pod	13.12 KB	-rw-r--r--
SpamGroup.pm	4.66 KB	-rw-r--r--
SpamGroup.pod	10.38 KB	-rw-r--r--
Subset.pm	2.04 KB	-rw-r--r--
Subset.pod	6.93 KB	-rw-r--r--

Code Editor : Partial.pm

# Copyrights 2001-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 Mail-Message.  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::Message::Head::Partial;
use vars '$VERSION';
$VERSION = '3.012';

use base 'Mail::Message::Head::Complete';

use strict;
use warnings;

use Scalar::Util 'weaken';

sub removeFields(@)
{   my $self  = shift;
    my $known = $self->{MMH_fields};

foreach my $match (@_)
    {
        if(ref $match)
             { $_ =~ $match && delete $known->{$_} foreach keys %$known }
        else { delete $known->{lc $match} }
    }

$self->cleanupOrderedFields;
}

sub removeFieldsExcept(@)
{   my $self   = shift;
    my $known  = $self->{MMH_fields};
    my %remove = map { ($_ => 1) } keys %$known;

foreach my $match (@_)
    {   if(ref $match)
        {   $_ =~ $match && delete $remove{$_} foreach keys %remove;
        }
        else { delete $remove{lc $match} }
    }

delete @$known{ keys %remove };

$self->cleanupOrderedFields;
}

sub removeResentGroups()
{   my $self = shift;
    require Mail::Message::Head::ResentGroup;

my $known = $self->{MMH_fields};
    my $found = 0;
    foreach my $name (keys %$known)
    {   next unless Mail::Message::Head::ResentGroup
                         ->isResentGroupFieldName($name);
        delete $known->{$name};
        $found++;
    }

$self->cleanupOrderedFields;
    $self->modified(1) if $found;
    $found;
}

sub removeListGroup()
{   my $self = shift;
    require Mail::Message::Head::ListGroup;

my $known = $self->{MMH_fields};
    my $found = 0;
    foreach my $name (keys %$known)
    {   next unless Mail::Message::Head::ListGroup->isListGroupFieldName($name);
        delete $known->{$name};
	$found++;
    }

$self->cleanupOrderedFields if $found;
    $self->modified(1) if $found;
    $found;
}

sub removeSpamGroups()
{   my $self = shift;
    require Mail::Message::Head::SpamGroup;

my $known = $self->{MMH_fields};
    my $found = 0;
    foreach my $name (keys %$known)
    {   next unless Mail::Message::Head::SpamGroup->isSpamGroupFieldName($name);
        delete $known->{$name};
	$found++;
    }

$self->cleanupOrderedFields if $found;
    $self->modified(1) if $found;
    $found;
}

sub cleanupOrderedFields()
{   my $self = shift;
    my @take = grep { defined $_ } @{$self->{MMH_order}};
    weaken($_) foreach @take;
    $self->{MMH_order} = \@take;
    $self;
}

#------------------------------------------

${this.title}

Code Editor : Partial.pm