# $Id$
package t::P15;
use strict;

sub DEBUG () { 0 }

sub new
{
    my( $package, %args ) = @_;
    DEBUG and warn "new";
    return bless { %args }, $package;
}

sub say
{
    my( $self, $string ) = @_;
    DEBUG and warn "$self->say";
    print "$string\n";
    return 'response';
}


1;
__END__