/usr/share/perl5/Mail/Message/Body/String.pm is in libmail-message-perl 3.006-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | # Copyrights 2001-2018 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
# 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::Body::String;
use vars '$VERSION';
$VERSION = '3.006';
use base 'Mail::Message::Body';
use strict;
use warnings;
use Carp;
use Mail::Box::FastScalar;
#------------------------------------------
# The scalar is stored as reference to avoid a copy during creation of
# a string object.
sub _data_from_filename(@)
{ my ($self, $filename) = @_;
delete $self->{MMBS_nrlines};
local *IN;
unless(open IN, '<', $filename)
{ $self->log(ERROR =>
"Unable to read file $filename for message body scalar: $!");
return;
}
my @lines = <IN>;
close IN;
$self->{MMBS_nrlines} = @lines;
$self->{MMBS_scalar} = join '', @lines;
$self;
}
sub _data_from_filehandle(@)
{ my ($self, $fh) = @_;
if(ref $fh eq 'Mail::Box::FastScalar')
{ my $lines = $fh->getlines;
$self->{MMBS_nrlines} = @$lines;
$self->{MMBS_scalar} = join '', @$lines;
}
else
{ my @lines = $fh->getlines;
$self->{MMBS_nrlines} = @lines;
$self->{MMBS_scalar} = join '', @lines;
}
$self;
}
sub _data_from_glob(@)
{ my ($self, $fh) = @_;
my @lines = <$fh>;
$self->{MMBS_nrlines} = @lines;
$self->{MMBS_scalar} = join '', @lines;
$self;
}
sub _data_from_lines(@)
{ my ($self, $lines) = @_;
$self->{MMBS_nrlines} = @$lines unless @$lines==1;
$self->{MMBS_scalar} = @$lines==1 ? shift @$lines : join('', @$lines);
$self;
}
sub clone()
{ my $self = shift;
ref($self)->new(data => $self->string, based_on => $self);
}
sub nrLines()
{ my $self = shift;
return $self->{MMBS_nrlines} if defined $self->{MMBS_nrlines};
my $lines = $self->{MMBS_scalar} =~ tr/\n/\n/;
$lines++ if $self->{MMBS_scalar} !~ m/\n\z/;
$self->{MMBS_nrlines} = $lines;
}
sub size() { length shift->{MMBS_scalar} }
sub string() { shift->{MMBS_scalar} }
sub lines()
{ my @lines = split /^/, shift->{MMBS_scalar};
wantarray ? @lines : \@lines;
}
sub file() { Mail::Box::FastScalar->new(\shift->{MMBS_scalar}) }
sub print(;$)
{ my $self = shift;
my $fh = shift || select;
if(ref $fh eq 'GLOB') { print $fh $self->{MMBS_scalar} }
else { $fh->print($self->{MMBS_scalar}) }
$self;
}
sub read($$;$@)
{ my ($self, $parser, $head, $bodytype) = splice @_, 0, 4;
delete $self->{MMBS_nrlines};
(my $begin, my $end, $self->{MMBS_scalar}) = $parser->bodyAsString(@_);
$self->fileLocation($begin, $end);
$self;
}
sub endsOnNewline() { shift->{MMBS_scalar} =~ m/\A\z|\n\z/ }
1;
|