Edit file

File name : Head.pm

Content :

# 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;
use vars '$VERSION';
$VERSION = '3.012';

use base 'Mail::Reporter';

use strict;
use warnings;

use Mail::Message::Head::Complete;
use Mail::Message::Field::Fast;

use Carp;
use Scalar::Util 'weaken';

use overload qq("") => 'string_unless_carp'
           , bool   => 'isEmpty';

# To satisfy overload in static resolving.
sub toString() { shift->load->toString }
sub string()   { shift->load->string }

sub string_unless_carp()
{   my $self = shift;
    return $self->toString unless (caller)[0] eq 'Carp';

(my $class = ref $self) =~ s/^Mail::Message/MM/;
    "$class object";
}

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

sub new(@)
{   my $class = shift;

return Mail::Message::Head::Complete->new(@_)
       if $class eq __PACKAGE__;

$class->SUPER::new(@_);
}
 
sub init($)
{   my ($self, $args) = @_;

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

$self->{MMH_field_type} = $args->{field_type}
        if $args->{field_type};

$self->message($args->{message})
        if defined $args->{message};

$self->{MMH_fields}     = {};
    $self->{MMH_order}      = [];
    $self->{MMH_modified}   = $args->{modified} || 0;
    $self;
}

sub build(@)
{   shift;
    Mail::Message::Head::Complete->build(@_);
}

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

sub isDelayed { 1 }

sub modified(;$)
{   my $self = shift;
    return $self->isModified unless @_;
    $self->{MMH_modified} = shift;
}

sub isModified() { shift->{MMH_modified} }

sub isEmpty { scalar keys %{shift->{MMH_fields}} }

sub message(;$)
{   my $self = shift;
    if(@_)
    {    $self->{MMH_message} = shift;
         weaken($self->{MMH_message});
    }

$self->{MMH_message};
}

sub orderedFields() { grep defined $_, @{shift->{MMH_order}} }

sub knownNames() { keys %{shift->{MMH_fields}} }

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

sub get($;$)
{   my $known = shift->{MMH_fields};
    my $value = $known->{lc(shift)};
    my $index = shift;

if(defined $index)
    {   return ! defined $value      ? undef
             : ref $value eq 'ARRAY' ? $value->[$index]
             : $index == 0           ? $value
             :                         undef;
    }
    elsif(wantarray)
    {   return ! defined $value      ? ()
             : ref $value eq 'ARRAY' ? @$value
             :                         ($value);
    }
    else
    {   return ! defined $value      ? undef
             : ref $value eq 'ARRAY' ? $value->[-1]
             :                         $value;
    }
}

sub get_all(@) { my @all = shift->get(@_) }   # compatibility, force list
sub setField($$) {shift->add(@_)} # compatibility

sub study($;$)
{   my $self = shift;
    return map {$_->study} $self->get(@_)
       if wantarray;

my $got  = $self->get(@_);
    defined $got ? $got->study : undef;
}

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

sub isMultipart()
{   my $type = shift->get('Content-Type', 0);
    $type && scalar $type->body =~ m[^multipart/]i;
}

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

sub read($)
{   my ($self, $parser) = @_;

my @fields = $parser->readHeader;
    @$self{ qw/MMH_begin MMH_end/ } = (shift @fields, shift @fields);

my $type   = $self->{MMH_field_type} || 'Mail::Message::Field::Fast';

$self->addNoRealize($type->new( @$_ ))
        for @fields;

$self;
}

#  Warning: fields are added in addResentGroup() as well!
sub addOrderedFields(@)
{   my $order = shift->{MMH_order};
    foreach (@_)
    {   push @$order, $_;
        weaken( $order->[-1] );
    }
    @_;
}

sub load($) {shift}

sub fileLocation()
{   my $self = shift;
    @$self{ qw/MMH_begin MMH_end/ };
}

sub moveLocation($)
{   my ($self, $dist) = @_;
    $self->{MMH_begin} -= $dist;
    $self->{MMH_end}   -= $dist;
    $self;
}

sub setNoRealize($)
{   my ($self, $field) = @_;

my $known = $self->{MMH_fields};
    my $name  = $field->name;

$self->addOrderedFields($field);
    $known->{$name} = $field;
    $field;
}

sub addNoRealize($)
{   my ($self, $field) = @_;

my $known = $self->{MMH_fields};
    my $name  = $field->name;

$self->addOrderedFields($field);

if(defined $known->{$name})
    {   if(ref $known->{$name} eq 'ARRAY') { push @{$known->{$name}}, $field }
        else { $known->{$name} = [ $known->{$name}, $field ] }
    }
    else
    {   $known->{$name} = $field;
    }

$field;
}

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

DATA DRIVEN ECOMMERCE

Ready to improve your ecommerce business’ performance?

Get better lead generation, engagement and enhanced ROI with a more customer centered approach.

See our services

Take this quiz

Services

Our Services

Let us help boost your internet exposure, turn more visitors into clients, save your time and increase your revenue. We’ve got a range of products and services to help you reach your goal.

For more information, click the one which suits your needs.

Build Optimise Serve Systemise
Build

Build your ecommerce website

“A website is a window through which your business says hello to the world.”

Learn more

Optimise

Optimise your website and other online platforms

“Google only loves you when everyone else loves you first.” ~ Wendy Piersall

Learn more

Serve

Serve and engage your audience

Provide them with the best services and make them loyal fans of your products.

Learn more

Systemise

Apply a systemised approach

Systemise and set up your actionable metrics by creating a Growth Scorecard.

Learn more

Build your ecommerce website

“A website is a window through which your business says hello to the world.”

Learn more

Optimise your website and other online platforms

“Google only loves you when everyone else loves you first.” ~ Wendy Piersall

Learn more

Serve and engage your audience

Provide them with the best services and make them loyal fans of your products.

Learn more

Apply a systemised approach

Systemise and set up your actionable metrics by creating a Growth Scorecard.

Learn more

metaverse marketing

Strategy

Boost your online sales

Providing an immersive experience

As Web3 is gradually gaining a foothold on the web, we’ve also structured our marketing solutions and strategies with you in mind. You tell us what you want to achieve and we will run an analysis of your ecommerce business in order to give you pointers on what to improve on, in order to boost your sales.

Not only that, we also offer done for you services, geared towards relieving you of the burden of having to figure things out by yourself.

Learn More

Latest Posts

Testimonials

What People Are Saying

Eva and I met at personal development course and renmained in contact. Over the years, I was fascinated by the care, compassion and energy she put into everything she does. She’s always there for you supporting and giving ideas to help you to carry on in whatever you are engage with.
Even though is she quite technical, she is nurturing and doen’t zoom straight into the technology part of it until necessary. She helped me to clearly identify my customer’s avatar and product pathways. Her step-by-step advice was invaluable as we embarked on the technical implementation itself.

Johanna Tresierra
Educator, Spanish Mentor and Entrepreneur, SpanishwithJo Ltd
I was referred to Eva by a friend. After our discussion, I took the opportunity to work with her to grow my business online and increase my revenue especially since I did not consider myself to be very technical and wanted a very personalised service.
Previously, I mainly showcased my products at in person events and definitely had to pivot my business online due to lockdown-Covid-19. Since working with Eva, I have launched some of my products on Amazon and we are now working on a Q4 promotion plan to add a subscription model to my business. Eva offers a personalised service including a hand holding teaching/mentoring approach which I vitally need at this stage in my business.

Jacalyn Belgrave
Owner, Ndulge Skincare Products Ltd

Like what you’ve seen so far?

Let’s Talk!

Click here

Gel4y Mini Shell

Edit file

Ready to improve your ecommerce business’ performance?

Services

Our Services

Strategy

Boost your online sales

Providing an immersive experience

Latest Posts

Testimonials

What People Are Saying

Like what you’ve seen so far?

Let’s Talk!