view release on metacpan or  search on metacpan

lib/Mail/Box/File/Message.pod  view on Meta::CPAN

=item $obj-E<gt>B<isTrusted>()

Inherited, see L<Mail::Message/"Internals">

=item $obj-E<gt>B<loadBody>()

Z<>

=item $obj-E<gt>B<moveLocation>($distance)

The message is relocated in the file, being moved over C<$distance> bytes.
Setting a new location will update the according information in the header
and body.

=item $obj-E<gt>B<readBody>( $parser, $head, [$bodytype] )

Inherited, see L<Mail::Box::Message/"Internals">

=item $obj-E<gt>B<readFromParser>($parser)

Read one message from a L<Mail::Box::File|Mail::Box::File> based folder, including the

lib/Mail/Box/Manage/User.pm  view on Meta::CPAN

		my $delim = $self->delimiter;
		my $upper = $newname =~ s!$delim$base!!r or panic "$newname - $base";
		$newdir   = $self->create($upper, %args, deleted => 1);
	}

	my $oldlocation = $old->location;
	my $new         = $old->rename($newdir, $base);

	my $newlocation = $new->location;
	$oldlocation eq $newlocation
		or panic "Physical folder relocation not yet implemented";  #XXX
		# this needs a $old->rename(xx,yy) which isn't implemented yet

	trace "renamed folder $oldname to $newname";
	$new;
}

1;