Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

LUISMUNOZ / SMS-Handler-0.01 / lib / SMS / Handler / Blackhole.pm 

            

              
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

              
package SMS::Handler::Blackhole;
require 5.005_62;
use Carp;
use strict;
use warnings;
use SMS::Handler;
use vars qw(@ISA);
use Net::SMPP::XML;
use Params::Validate qw(:all);
# $Id: Blackhole.pm,v 1.3 2002/12/22 19:03:02 lem Exp $
(our $VERSION = q$Revision: 1.3 $) =~ s/Revision //;
our $Debug = 0;
=pod
=head1 NAME
SMS::Handler::Blackhole - Collect any unhandled message
=head1 SYNOPSIS
  use SMS::Handler::Blackhole;
  my $h = SMS::Handler::Blackhole->new();
 $h->handle({ ... });
=head1 DESCRIPTION
This module implements a simple responder class which simply collects
any message received. Normally, it should be included as the last
object in a handler list.
The following methods are provided:
=over 4
=item C<-E<gt>new()>
Creates a new C<SMS::Handler::Blackhole> object. 
=cut
sub new 
{
    my $name    = shift;
    my $class   = ref($name) || $name;
    return bless {}, $class;
}
=pod
=item C<-E<gt>handle()>
Collects the given SMS.
=cut
sub handle { SMS_STOP | SMS_DEQUEUE; }
1;
__END__
=pod
=head2 EXPORT
None by default.
=head1 LICENSE AND WARRANTY
This code comes with no warranty of any kind. The author cannot be
held liable for anything arising of the use of this code under no
circumstances.
This code is released under the terms and conditions of the
GPL. Please see the file LICENSE that accompains this distribution for
more specific information.
This code is (c) 2002 Luis E. Muñoz.
=head1 HISTORY
$Log: Blackhole.pm,v $
Revision 1.3  2002/12/22 19:03:02  lem
Set license GPL
Revision 1.2  2002/12/20 01:25:57  lem
Changed emails for redistribution
Revision 1.1  2002/12/09 22:04:28  lem
Added ::Blackhole
=head1 AUTHOR
Luis E. Muñoz <luismunoz@cpan.org>
=head1 SEE ALSO
L<SMS::Handler>, L<Queue::Dir>, perl(1).
=cut