#-*- perl -*- # # Copyright (C) 2001,2002,2003,2005,2006 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # # $FML: remove.pm,v 1.13 2003/12/31 04:08:44 fukachan Exp $ # package FML::Command::User::remove; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; use FML::Command::User::unsubscribe; @ISA = qw(FML::Command::User::unsubscribe); # Descriptions: unsubscribe request, forwarded to "unsubscribe" module. # Arguments: OBJ($self) OBJ($curproc) OBJ($command_context) # Side Effects: forward request to unsubscribe module # Return Value: none sub process { my ($self, $curproc, $command_context) = @_; $self->SUPER::process($curproc, $command_context); } =head1 NAME FML::Command::User::remove - unsubscribe request command =head1 SYNOPSIS See C for more details. =head1 DESCRIPTION Alias of C. The unsubscribe request is forwarded to C. =head1 CODING STYLE See C on fml coding style guide. =head1 AUTHOR Ken'ichi Fukamachi =head1 COPYRIGHT Copyright (C) 2001,2002,2003,2005,2006 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 HISTORY FML::Command::User::remove first appeared in fml8 mailing list driver package. See C for more details. =cut 1;