File Coverage

blib/lib/SMS/Handler/Blackhole.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

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<-Enew()>

Creates a new C object.

=cut

sub new
{
    my $name	= shift;
    my $class	= ref($name) || $name;

    return bless {}, $class;
}

=pod

=item C<-Ehandle()>

Collects the given SMS.

=cut

sub handle { SMS_STOP | SMS_DEQUEUE; }

1;
__END__