Gecko [ nrupathungauniversityblr.ac.in ]

Name	Size	Permission
Field	[ DIR ]	drwxr-xr-x
Mailer	[ DIR ]	drwxr-xr-x
Address.pm	6.66 KB	-rw-r--r--
Address.pod	3.71 KB	-rw-r--r--
Cap.pm	6.17 KB	-rw-r--r--
Cap.pod	3.74 KB	-rw-r--r--
Field.pm	4.68 KB	-rw-r--r--
Field.pod	4.9 KB	-rw-r--r--
Filter.pm	1.23 KB	-rw-r--r--
Filter.pod	2.79 KB	-rw-r--r--
Header.pm	14.02 KB	-rw-r--r--
Header.pod	7.72 KB	-rw-r--r--
Internet.pm	12 KB	-rw-r--r--
Internet.pod	10.31 KB	-rw-r--r--
Mailer.pm	4.73 KB	-rw-r--r--
Mailer.pod	3.88 KB	-rw-r--r--
Send.pm	1.13 KB	-rw-r--r--
Send.pod	2.8 KB	-rw-r--r--
Util.pm	3.14 KB	-rw-r--r--
Util.pod	3.08 KB	-rw-r--r--

Code Editor : Filter.pm

# Copyrights 1995-2016 by [Mark Overmeer <perl@overmeer.net>].
#  For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.02.
use strict;
package Mail::Filter;
use vars '$VERSION';
$VERSION = '2.18';

use Carp;

sub new(@)
{   my $class = shift;
    bless { filters => [ @_ ] }, $class;
}

sub add(@)
{   my $self = shift;
    push @{$self->{filters}}, @_;
}

sub _filter($)
{   my ($self, $mail) = @_;

foreach my $sub ( @{$self->{filters}} )
    {   my $mail
          = ref $sub eq 'CODE' ? $sub->($self,$mail)
	  : !ref $sub          ? $self->$sub($mail)
	  : carp "Cannot call filter '$sub', ignored";

ref $mail or last;
    }

$mail;
}

sub filter
{   my ($self, $obj) = @_;
    if($obj->isa('Mail::Folder'))
    {   $self->{folder} = $obj;
	foreach my $m ($obj->message_list)
	{   my $mail = $obj->get_message($m) or next;
	    $self->{msgnum} = $m;
	    $self->_filter($mail);
	}
	delete $self->{folder};
	delete $self->{msgnum};
    }
    elsif($obj->isa('Mail::Internet'))
    {   return $self->filter($obj);
    }
    else
    {   carp "Cannot process '$obj'";
	return undef;
    }
}

sub folder() {shift->{folder}}

sub msgnum() {shift->{msgnum}}

${this.title}

Code Editor : Filter.pm