File Coverage

blib/lib/SMS/Handler/Invoke.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition	0	6	0.0
subroutine	5	7	71.4
pod	2	2	100.0
total	22	39	56.4

package SMS::Handler::Invoke;

require 5.005_62;

use Carp;
use strict;
use warnings;
use SMS::Handler;
use vars qw(@ISA);

# $Id: Invoke.pm,v 1.2 2002/12/22 19:03:02 lem Exp $

(our $VERSION = q$Revision: 1.2 $) =~ s/Revision //;

our $Debug = 0;

=pod

=head1 NAME

SMS::Handler::Invoke - Invoke a user-supplied method on a SMA

=head1 SYNOPSIS

  use SMS::Handler::Invoke;

  my $h = new SMS::Handler::Invoke sub { ... };

 $h->handle({ ... });

=head1 DESCRIPTION

Invokes the method passed as the only argument to the C<-Enew()>
method, passing the SMS sent to its C<-Ehandle()> method. This is
useful to implement quick transforms in the source or destination
numbers, or implementing custom message handling.

The supplied sub will receive as its only argument, the SMS reference
passed to the C<-Ehandle()> method. Its return value will be
returned by the C<-Ehandle()> method.

=over 4

=item C<-Enew()>

Creates a new C object.

=cut

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

    if (defined $method and ref($method) eq 'CODE')
    {
	return bless { sub => $method }, $class;
    }

    return undef;
}

=pod

=item C<-Ehandle()>

Invokes the user supplied sub on the SMS reference. Returns whatever
the user-supplied sub returns.

=cut

sub handle { return $_[0]->{sub}->($_[1]); }

1;
__END__